XProfan

Source 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