Heej,
Ik wil een tekstbestand van internet lezen en heb dan dit:
Private Function ReadTextFile(ByVal sFileName As String) As String
Dim s As String
Try
Dim oFile As FileStream = New FileStream(sFileName, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim oReader As StreamReader = New StreamReader(oFile)
s = oReader.ReadToEnd
oReader.Close()
oFile.Close()
ReadTextFile = s
Catch
ReadTextFile = "Unable to open file."
End Try
End Function
en daarna bij de timer
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim s As String
s = ReadTextFile("http://mmwps.nl/progress.txt")
lblUpdateTemp.Text = s
End Sub
mmwps.nl is even een voorbeeld
maar dit van internet lezen doet het dus niet, doe je het vanaf harde schijf dan lukt het wel. Hoe kan ik doen dat ie het van internet af leest?
Ik wil een tekstbestand van internet lezen en heb dan dit:
Private Function ReadTextFile(ByVal sFileName As String) As String
Dim s As String
Try
Dim oFile As FileStream = New FileStream(sFileName, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim oReader As StreamReader = New StreamReader(oFile)
s = oReader.ReadToEnd
oReader.Close()
oFile.Close()
ReadTextFile = s
Catch
ReadTextFile = "Unable to open file."
End Try
End Function
en daarna bij de timer
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim s As String
s = ReadTextFile("http://mmwps.nl/progress.txt")
lblUpdateTemp.Text = s
End Sub
mmwps.nl is even een voorbeeld
maar dit van internet lezen doet het dus niet, doe je het vanaf harde schijf dan lukt het wel. Hoe kan ik doen dat ie het van internet af leest?