Remember chosen Directory

[JLogan3o13]

I'm hoping this will be a simple fix. I do a lot of packaging of applications, and testing the installs. I wrote the quick script below to allow me to quickly install applications on test machines, rather than having to browse manually or run command line. The script has a function for a basic MSI install, as well as one for an MSI with a Transform file. My question is regarding the MSI and Transform function. I have the script opening a file open dialogue box in the root directory where all projects are stored, and then I browse for the MSI. It then opens back to that same root directory and I browse for the Transform. Is there an easy way to get it to remember and open in the directory where I just chose the MSI? Sometimes I have to browse 8 or 10 folders deep, and it would be nice not to have to do all that clicking more than once.

$var = MsgBox(4, "Test Application", "Does this install require a Transform?")
If $var = 6 Then
  Call("mst")
Else
  Call("msi")
EndIf

func msi()

$value = FileOpenDialog("Test Application Install", "packagingserver[url="file://\\jiminy\packaging"]\[/url]packagingDIR", "All (*.*)")
  Run( 'msiexec /i "' & $value & '" /qb' )
EndFunc

func mst()

$value1 = FileOpenDialog("MSI file", "packagingserver[url="file://jiminy/packaging"]\[/url]packagingDIR", "All (*.*)")
$value2 = FileOpenDialog("Transform file", "packagingserver[url="file://jiminy/packaging"]\[/url]packagingDIR", "All (*.*)") <---------- here is where I'd like to make the change. I would like this dialog box to open in the same directory where I chose the previous file one line above.
  Run( 'msiexec /i "' & $value1 & '" TRANSFORMS="' & $value2 & '" /qb' )
EndFunc

[water]

Set the second parameter as the starting directory.

Example:

#include <file.au3>

Dim $szDrive, $szDir, $szFName, $szExt

$value1 = FileOpenDialog("MSI file", "C:\temp", "All (*.*)")
$Path = _PathSplit($value1, $szDrive, $szDir, $szFName, $szExt)
$value2 = FileOpenDialog("Transform file", $szDrive & "\" & $szDir, "All (*.*)")

[JLogan3o13]

That's easy enough; think I was over-thinking things. Thanks much!

[Yashied]

Global $Path = @ScriptFullPath

$Path = FileOpenDialog('Open File', StringRegExpReplace($Path, '\\[^\\]*\Z', ''), 'All Files (*.*)', 1 + 2, StringRegExpReplace($Path, '\.*\Z', ''))
$Path = FileOpenDialog('Open File', StringRegExpReplace($Path, '\\[^\\]*\Z', ''), 'All Files (*.*)', 1 + 2, StringRegExpReplace($Path, '\.*\Z', ''))
$Path = FileOpenDialog('Open File', StringRegExpReplace($Path, '\\[^\\]*\Z', ''), 'All Files (*.*)', 1 + 2, StringRegExpReplace($Path, '\.*\Z', ''))

Edited November 20, 2010 by Yashied