FiveTech Software tech support forums

Posted: **Sat Mar 05, 2022 8:12 am**

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


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?

Posted: **Sat Mar 05, 2022 8:17 am**

Dear Silvio,

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

Posted: **Sat Mar 05, 2022 10:14 am**

Antonio Linares wrote: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

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

Posted: **Sat Mar 05, 2022 7:32 pm**

hi Silvio,

Silvio.Falconi wrote: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

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

FiveTech Software tech support forums

downloading a specific file

downloading a specific file

Re: downloading a specific file

Re: downloading a specific file

Re: downloading a specific file