"===================================================================================================================
'Prozessname: SaveremoteFile
'Funktion: Speichern Sie Remotedateien in lokal
'Parameter: LocalFileName ------ lokale Dateiname
'Parameter: RemoteFileurl ----- URL Remote-Datei
"===================================================================================================================
Funktionenversemotefile (LocalFileName, RemoteFileurl)
SaveremoteFile = true
Dimads, Abruf, GetRemotedata
OnErrorresumeNext
SetRevalal = server.createObject ("microsoft.xmlhttp"))
Withrieval
.Open "Get", remoteFileurl, falsch, "," "," "
.Schicken
If.ReadyState <> 4OR.Status> 300Then
SaveremoteFile = False
Ausgangsfunktion
Endif
GetRemotedata = .ResponseBody
Endwith
SetReval = nichts
'Iflenb (getRemotedata) <100Thenexitfunction
'IfmaxFileSize> 0Then
'Iflenb (getRemotteata)> 5000Denexitfunction
Antwort.Write (Runde (Lenb (getRemotteata)/1024) & "KB"
'Endif
SetAds = server.createObject ("adodb.stream")
Withads
.Type = 1
.Offen
.WriteGetRemotedata
.SavetofilessServer.MAppath (lokalerfilename), 2
.Stornieren()
.Schließen()
Endwith
Ifr.number <> 0Then
SaveremoteFile = False
Ausgangsfunktion
Err.clear
Endif
SetAds = nichts
Endfunktion