Kein Download wenn Betriebssystem Vista ist
14.05.2007 20:24:00
Kasimir
ich habe ein Problem. Mit nachfolgendem Makro lade ich eine bestimmte Datei von unserem Internetserver.
Option Explicit
Private Declare
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
Das funktioniert auch soweit. Soweit aber auch nur, solange niemand Windows Vista verwendet. Denn mit Vista wird die Datei nicht herunter geladen. Hat jemand mit Vista Erfahrung und weiß, warum das Makro nicht funktioniert?
Danke Euch,
Kasimir