downloading a specific file

[Silvio.Falconi]

On windows Seven I have difficulty downloading a specific file directly from a remote url and therefore I have to use this command

Code: Select all  Expand view  RUN

IF IsWinNT() .OR. isWin2000() // XP/2000/NT
         WinExec( "rundll32.exe url.dll, FileProtocolHandler " + cUrl, 0 )
      ELSE
         WinExec( "Start " + cUrl, 0 )
      ENDIF
 

Now I would have the problem of locating the downloaded file presumably in the download folder of the window
since I can't force my folder where to download the file
how do i calculate the exact route in windows seven?

[Antonio Linares]

Dear Silvio,

https://answers.microsoft.com/en-us/windows/forum/all/where-are-downloaded-files-stored-with-windows-7/d4a0c9c3-af1a-46c8-9287-19681f525956

[Silvio.Falconi]

Dear Silvio,

https://answers.microsoft.com/en-us/windows/forum/all/where-are-downloaded-files-stored-with-windows-7/d4a0c9c3-af1a-46c8-9287-19681f525956

I allready Kow it

C:\Users\Username\Downloads

but that's not always the case sometimes "Users" and sometimes "Users" even if the windows is in Italian language

and if at the moment of saving the user changes folder ????

the comand

WinExec( "rundll32.exe url.dll, FileProtocolHandler " + cUrl, 0 )
ELSE
WinExec( "Start " + cUrl, 0 )

it doesn't give me the folder where the file was saved

causing problems for the other function that has to load the file to process it


this is because in window seven I cannot use this function GETURLTOFILE(cUrl,cZipFile) because the function gives problems

Code: Select all  Expand view  RUN

STATIC FUNCTION GETURLTOFILE( cUrl, cFile, cUsr, cPsw )
    LOCAL lOk := .F.

    LOCAL oHtp, oStr, ex

    DEFAULT cFile := CFILENAME( STRTRAN( cUrl, "/", "\" ) )

    //TRY
        oHtp = CREATEOBJECT( "Msxml2.XMLHTTP.6.0" )
        oHtp:Open( "POST", cUrl, .F., cUsr, cPsw )
        oHtp:Send()

        IF oHtp:Status != 200 THEN BREAK
        MemoWrit(cFile,oHtp:ResponseBody)
        //oStr = CREATEOBJECT( "ADODB.Stream" )
        //oStr:Open()
        //oStr:Type = 1
        //oStr:Write( oHtp:ResponseBody )
        //oStr:SaveToFile( cFile, 2 )
        //oStr:Close()

        lOk = .T.
    //CATCH ex
    //        ? ex:message
    //END

    RETURN lOk

on windows 10 run perfectly, on windows Seven No

[Jimmy]

hi Silvio,

but that's not always the case sometimes "Users" and sometimes "Users" even if the windows is in Italian language

you can use

Code: Select all  Expand view  RUN

LOCAL cUser := Getenv("USERPROFILE")
LOCAL cDownload := cUser +"\DOWNLOADS"