Kein Download wenn Betriebssystem Vista ist

Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL$, _
ByVal szFileName$, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Public Anzahl_Downloads As Integer, Faktor_download, Faktor_löschen
Public Download_manuell As Boolean


Sub Download()
Dim lResult As Long
Dim sURL$, sLocalFile$
Dim Downloaddatei As String, Verzeichnis As String
Downloaddatei = "Testdate.xls"
Verzeichnis = "C:\"
sURL = "http://meinehomepage.de"
& Downloaddatei
sLocalFile = Verzeichnis & Downloaddatei
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
End Sub