Script working directory issue

[FaridAgl]

ConsoleWrite("Original working directory: " & @CRLF & GetCurrentDirectory() & @CRLF & @CRLF)

FileSaveDialog("", "", "", 0, "")
ConsoleWrite("Working directory after FileSaveDialog: " & @CRLF & GetCurrentDirectory() & @CRLF & @CRLF)

FileOpenDialog("", "", "", 0, "")
ConsoleWrite("Working directory after FileOpenDialog: " & @CRLF & GetCurrentDirectory() & @CRLF & @CRLF)

FileSelectFolder("", "", 0, "")
ConsoleWrite("Working directory after FileSelectFolder (It's just OK): " & @CRLF & GetCurrentDirectory() & @CRLF)

Func GetCurrentDirectory()
    Local $avResult

    $avResult = DllCall("kernel32.dll", "DWORD", "GetCurrentDirectory", _
            "DWORD", 0, _
            "ptr", 0)
    If ((@error) Or ($avResult = 0)) Then Return SetError(1, 0, "")

    Local $tBuffer = DllStructCreate("CHAR[" & $avResult[0] & "]")

    $avResult = DllCall("kernel32.dll", "DWORD", "GetCurrentDirectory", _
            "DWORD", $avResult[0], _
            "ptr", DllStructGetPtr($tBuffer, 1))
    If ((@error) Or ($avResult = 0)) Then Return SetError(2, 0, "")

    Return SetError(0, 0, DllStructGetData($tBuffer, 1))
EndFunc

The above code demonstrates the situation.

In the beginning the working directory is just fine.

Then after FileSaveDialog it gets changed to the selected directory, also after FileOpenDialog it gets changed to the new selected dir.

However FileSelectFolder is just fine and doesn't change the working directory.

I guess it's that kind of bugs which you will not get noticed about but will ruin every single line of code which you write based on script's relative path.

Edited January 19, 2014 by D4RKON3

[Melba23]

D4RKON3,

It is a Windows "feature" and not an AutoIt "bug" - and as they are all direct API calls there is not a lot that can be done about it.

The fact that @WorkingDir changes on a successful return is mentioned in the Help file for FileOpen/SaveDialog.

M23

[KaFu]

Here's my work-around I use in AMT...

Func _FileOpenDialog_Ex($sTitle, $sInitDir, $sFilter, $iOptions = 0, $sDefaultName = "", $hWnd = 0)
    #cs
        https://groups.google.com/forum/?hl=en&fromgroups=#!topic/microsoft.public.vc.mfc/HafQr4gIRY0
        The problem is that GetOpenFileName changes the current directory to the
        last browsed one. The current directory and any of its parents cannot be
        deleted.
    #ce
    Local $sWorkingDir = @WorkingDir
    Local $sFilename = FileOpenDialog($sTitle, $sInitDir, $sFilter, $iOptions, $sDefaultName, $hWnd)
    Local $iError = @error
    FileChangeDir($sWorkingDir)
    Return SetError($iError, 0, $sFilename)
EndFunc   ;==>_FileOpenDialog_Ex

[FaridAgl]

Melba23

Yes, you are right, I didn't checked that part of help file.

KaFu

Thanks, you gave me the idea.

[Ascend4nt]

Nice workaround KaFu.. I wasn't aware that the issue was documented, and have only seen it crop up intermittently.

[Jon]

Hmm, if didn't realise that. I probably would have fixed it at the time, but it's probably a little too script breaking to do now.

[jaberwacky]

a little too script breaking to do now.

Can we complain?  We get it for free.