All about Application Packaging, Virtualization and Deployment
on Error Resume Next Set objWshShell = CreateObject("WScript.Shell") Set objFileSystem = CreateObject("Scripting.FileSystemObject") sScriptDir=objFileSystem.GetParentFolderName(WScript.ScriptFullName) msgbox sscriptdir