script error when file not in same folder as script

[gurner]

I have this script that prompts you to define one of the application switches, then asks you to pick a file to chuck towards the application, but if the file is anywhere but in the same folder that the script is run from it errors with file not found from the last line

the script is
------------------------------------------------
dim response1

Set Wshshell = CreateObject("Wscript.Shell")

response1 = inputbox("please define the switch first then pick the file", "Machine name")

set oFO = CreateObject("SAFRCFileDlg.FileOpen")
oFO.OpenFileOpenDlg

Wshshell.run "audit --" & response1 & " --input=" & oFO.FileName & " --log=audit.log"
----------------------------------------------

cheers

Gurner

 

[cmartin75]

The commondialog control of vb, the opendialog changes the current directory. I think is the problem here.

In the commondialog control of vb you can avoid change the current directory with the flags property of the control. (Value = 8), but I don't know if it's applicable on this case