Pages

Friday, 15 June 2012

Get current directory - VBScript


on Error Resume Next


Set objWshShell = CreateObject("WScript.Shell")
Set objFileSystem = CreateObject("Scripting.FileSystemObject")

sScriptDir=objFileSystem.GetParentFolderName(WScript.ScriptFullName)


msgbox sscriptdir

Posted by at
Labels: ,

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)