実行ファイルのカレントにLOGを保存したい場合や、読み込ませたいファイルを指定するのが面倒な場合に。
'スクリプトの実行パスを返します。 Wscript.Echo ScriptFullPATH() Function ScriptFullPATH() Dim strPATH strPATH = Wscript.ScriptFullName ScriptFullPATH = Left(strPATH,InStrRev(strPATH,"\")-1) End Function
実行ファイルのカレントにLOGを保存したい場合や、読み込ませたいファイルを指定するのが面倒な場合に。
'スクリプトの実行パスを返します。 Wscript.Echo ScriptFullPATH() Function ScriptFullPATH() Dim strPATH strPATH = Wscript.ScriptFullName ScriptFullPATH = Left(strPATH,InStrRev(strPATH,"\")-1) End Function