Txt fra nettet

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

Public Function DownloadFile(URL As String, LocalFilename As String)
Dim lngRetVal As Long
  lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
End Function

Private Sub Form_Load()
Dim strArray
Dim strText
  DownloadFile "http://www.navn.dk/textfile.txt", "c:\textfile.txt"
  Open "c:\textfile.txt" For Input As #1
    Do Until EOF(1)
      Input #1, strText
      strArray = Split(strText, "|")
      List1.AddItem strArray(1)
      List2.AddItem strArray(2)
      List3.AddItem strArray(3)
    Loop
  Close #1
End Sub

det lyder til at virke
så du skal da have dine points

tak for point. :-)

det var så lidt jeg håber deet virker

har du ikke prøvet det endnu. :-)
hvis du har vb6 så virker det, hvis du har vb5 så mangler der Split()
så må du lige sige til.

jeg har testet det bare ikke download funktionen