Getting current directory in VBScript

Question

I m trying to get the current directory and use it to run an application no matter where the file is put and no matter how the path is changed  Dim fso  set fso   CreateObject  Scripting FileSystemObject   Dim CurrentDirectory CurrentDirectory   fso GetAbsolutePathName      Dim Directory Directory   CurrentDirectory attribute exe  Set WinScriptHost   CreateObject  WScript Shell   WinScriptHost Run Chr 34   amp   Directory   amp  Chr 34   0 Set WinScriptHost   Nothing   How do I actually set up this code so it does what I want it to do correctly

User · Answer

Your line  Directory   CurrentDirectory attribute exe   does not match any feature I have encountered in a vbscript instruction manual  The following works for me  tho not sure what where you expect  attribute exe  to reside   dim fso dim curDir dim WinScriptHost set fso   CreateObject  Scripting FileSystemObject   curDir   fso GetAbsolutePathName      set fso   nothing Set WinScriptHost   CreateObject  WScript Shell   WinScriptHost Run curDir  amp    testme bat   1 set WinScriptHost   nothing

User · Answer

You can use CurrentDirectory property   Dim WshShell  strCurDir Set WshShell   CreateObject  WScript Shell   strCurDir      WshShell CurrentDirectory WshShell Run strCurDir  amp    attribute exe   0 Set WshShell   Nothing

User · Answer

Use With in the code  Try this way       Way 1  currentdir Left WScript ScriptFullName InStrRev WScript ScriptFullName  quot   quot          Way 2  With CreateObject  quot WScript Shell quot   CurrentPath  CurrentDirectory End With       Way 3  With WSH CD Replace  ScriptFullName  ScriptName  quot  quot   End With

User · Answer

-----Implementation of VB6 App object in VBScript----- Class clsApplication     Property Get Path             Dim sTmp           If IsObject Server  Then                 Classic ASP                Path   Server MapPath                  ElseIf IsObject WScript  Then                  Windows Scripting Host                Path   Left WScript ScriptFullName  InStr WScript ScriptFullName  WScript ScriptName  - 2            ElseIf IsObject window  Then                 Internet Explorer HTML Application  HTA                 sTmp   Replace  Replace Unescape window location    file                                     Path   Left sTmp  InstrRev  sTmp        - 1            End If     End Property End Class Dim App   Set App   New clsApplication  use as App Path

User · Answer

You can use WScript ScriptFullName which will return the full path of the executing script      You can then use string manipulation  jscript example     scriptdir   WScript ScriptFullName substring 0 WScript ScriptFullName lastIndexOf WScript ScriptName -1    Or get help from FileSystemObject   vbscript example     scriptdir   CreateObject  Scripting FileSystemObject   GetParentFolderName WScript ScriptFullName

User · Answer

Your problem is not getting the directory  fso GetAbsolutePathName      resolves the current working directory just fine   Even if you wanted the script directory instead of the current working directory  you could easily determine that as Jakob Sternberg described in his answer   What does not work in your code is building a path from the directory and your executable  This is invalid syntax    Directory   CurrentDirectory attribute exe   If you want to build a path from a variable and a file name  the file name must be specified as a string  or a variable containing a string  and either concatenated with the variable directory variable   Directory   CurrentDirectory  amp    attribute exe    or  better  you construct the path using the BuildPath method   Directory   fso BuildPath CurrentDirectory   attribute exe

User · Answer

simple   scriptdir   replace WScript ScriptFullName WScript ScriptName

[vbscript] Getting current directory in VBScript

Examples related to vbscript

Examples related to directory