strCurDir = WScript.ScriptFullName strCurDir = Replace( strCurDir, "\" & WScript.ScriptName, "" ) でも動作しますが、以下のほうが正統派だとは思います
Dim Fso,obj,strCurPath ' ファイルシステムオブジェクト Set Fso = CreateObject( "Scripting.FileSystemObject" ) ' 現在実行されているスクリプトのフルパス strCurPath = WScript.ScriptFullName ' ファイルオブジェクトを作成 Set obj = Fso.GetFile( strCurPath ) ' ファイルオブジェクトが存在するフォルダオブジェクト Set obj = obj.ParentFolder ' そのフォルダのフルパス strCurPath = obj.Path Wscript.Echo strCurPath
|
|