XML Download

08/01/2009 - 18:28 von Gerhard Meier | Report spam
Hallo Zusammen,

ich möchte gerne eine XML Datei Dowonloaden, welche ich an einen bestimmten
Pfad herunterzuladen wàre.

Kennt jemand ein geeignetes Beispiel?

Besten Dank für jeden Tipp.

Mit freundlichen Grüssen

Gerry
 

Lesen sie die antworten

#1 Jörg Ackermann
08/01/2009 - 18:47 | Warnen spam
Hallo,

Gerhard Meier meinte:

Hallo Zusammen,

ich möchte gerne eine XML Datei Dowonloaden, welche ich an einen
bestimmten Pfad herunterzuladen wàre.

Kennt jemand ein geeignetes Beispiel?



Schau Dir das mal an:

1:

mit Fortschritts- u. FileSave-Dialog


Private Declare Function DoFileDownload Lib "shdocvw.dll" _
(ByVal lpszFile As String) As Long

Public Sub DownloadWithDialog(URL As String)
DoFileDownload StrConv(URL, vbUnicode)
End Sub



oder

2:

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





Gruß Acki

Ähnliche fragen