Function GetScriptDir() Dim Fso Dim obj Dim strCurPath Set Fso = CreateObject( "Scripting.FileSystemObject" ) strCurPath = WScript.ScriptFullName Set obj = Fso.GetFile( strCurPath ) Set obj = obj.ParentFolder GetScriptDir = obj.Path End Function