How can I determine the folder a bootstrapped exe is being run from? I need to store this location in a registry setting.
Thanks
Code: Select all
Session.Property("Property") = value
Code: Select all
'get the EXE path
Dim setupPath
setupPath = Session.Property("SETUPEXEDIR")
setupPath = setupPath & "setup.exe"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(setupPath) Then
Dim f
Set f = objFSO.GetFile(setupPath)
'get file information
Session.Property("SETUP_CREATE_DATE") = CStr(f.DateCreated)
End If