Hente info fra textfil på internett

[Blaster2k]

Jeg vil hente teksten i en tekstfil på internet, inn til en label.

[Jonas]

Ok.

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Form_Load()

URLDownloadToFile 0, "http://forum.overklokking.no/", "c:\test.txt", 0, 0

If Not Dir("c:\test.txt") = "" Then
   
   Dim Buff As String, Tekst As String
   
   Open "C:\test.txt" For Input As #1
       Do Until EOF(1)
           Line Input #1, Buff
           Tekst = Tekst & Buff & vbNewLine
       Loop
   Close #1
   
   Label1.Caption = Tekst
   
End If

End Sub

[Blaster2k]

takker og bukker