| |
|
|
| KompilierenMarcaSeparaciónSource wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Internet: Datei in vorgegebenes Verzeichnis downloaden
Autor Dieter Zornow
Frei zu gebrauchen
DEF URLDownloadToFile(5) ! urlmon,URLDownloadToFileA
proc Urldownload
parameters url$,save$
Declare Url2$,save2$,result&
url2$ = url$
save2$ = save$
Print Bitte warten, der Download wird duchgeführt....
usecursor 2
result& = URLDownloadToFile(0,addr(url2$),addr(save2$),$10,0)
usecursor 0
cls
If result& = 0
Messagebox(Download erfolgreich ausgeführt!,Auftrag beendet,64)
Else
Messagebox(Beim Download ist ein Fehler aufgetreten
Bitte überprüfen Sie die Url,Fehler,64)
EndIf
endproc
cls
urldownload http://dieterzornow.gmxhome.de/software/farbwahl.zip,c:\Temp\Farbwahl.zip
waitinput
|
|
|
| |
|
|