title image


Smiley Re: Mit VB6 eine Text-Datei / INI auf einem http-Server auslesen!!!
Const myUrl = "http://www.mysite.com/test.txt"

Const tmpUrl = "c:\windows\desktop\test.txt"



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_Activate()



DownloadFile myUrl, tmpUrl



ff = FreeFile: Dim bn



Open tmpUrl For Input As #ff

Do While Not EOF(ff)

Line Input #ff, a

bn = bn & a

Loop

Close #ff



MsgBox bn



End Sub





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
 Die von mir vorgeschlagenen Lösungen wurden unter VB6 getestet (Betriebssystem: Windows 98 SE)
Meine Microsite


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: