パス名のノーテーション\..\を使用すると、他の方法より遥かに簡便です。
一般的な方法(使用前)
バッチファイルやスクリプトファイルのフルパス名から親フォルダパス名を取り出す。
[バッチファイル]
"%~dp0"
[VBScript]
Set fso=CreateObject("Scripting.FileSystemObject")
fso.GetParentFolderName(WScript.ScriptFullName)
Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\"))
バッチファイルやスクリプトファイルと同じフォルダのファイルのフルパス名を組み立てる。
[バッチファイル]
"%~dp0ファイル名"
[VBScript]
Set fso=CreateObject("Scripting.FileSystemObject")
fso.GetParentFolderName(WScript.ScriptFullName)
fso.BuildPath(fso.GetParentFolderName(WScript.ScriptFullName),"ファイル名")
Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,"\"))&"ファイル名"
簡便な方法(使用後)
バッチファイルやスクリプトファイルのフルパス名から親フォルダパス名を取り出す。
[バッチファイル]
"%~0\..\"
[VBScript]
WScript.ScriptFullName&"\..\"
バッチファイルやスクリプトファイルと同じフォルダのファイルのフルパス名を組み立てる。
[バッチファイル]
"%~0\..\ファイル名"
[VBScript]
WScript.ScriptFullName&"\..\ファイル名"