Læse en tekstfil på web server

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

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

Private Sub Form_Load()
  DownloadFile "http://servernavn.com", "c:\save.txt"
End Sub

det var sådan:

Private Sub Form_Load()
  DownloadFile "http://servernavn.com/save.txt", "c:\save.txt"
End Sub

men du ville aldrig kunne undgå at en client kan se hvor han/hun henter data fra.. det kan man hurtig se hvis man har firewall eller noget netspy...

Tak det ser ud til at virke.
Det gør ikke noget at de kan se hvad der er på web serveren da den er på et hotel, bare jeg ikke får dem indenfor i firmaets system.