DECLARE INTEGER URLDownloadToFile IN urlmon.dll;
INTEGER pCaller, STRING szURL,;
STRING szFileName, INTEGER dwReserved,;
INTEGER lpfnCB
LOCAL cRemoteFile, cLocalFile, nResult
cRemoteFile = "http://www.news2news.com/vfp/downloads/w32data.zip"
cLocalFile = "c:\temp\w32data.zip"
WAIT WINDOW NOWAIT "Downloading file..."
nResult = URLDownloadToFile(0, cRemoteFile, cLocalFile, 0,0)
WAIT CLEAR
IF nResult = 0
? "The file has been downloaded."
ELSE
? "The URLDownloadToFile call failed with error code:", nResult
ENDIF
|