VBScript: カレントディレクトリを取得
VBScriptでカレントディレクトリを取得する場合は、 ファイルシステムオブジェクトのGetAbsolutePathNameメソッドを使用します。
GetAbsolutePathNameメソッドの書式は次の通りです。
書式
ファイルシステムオブジェクト.GetAbsolutePathName(パス)
引数として指定するパスには絶対パスと相対パスのどちらかを指定します。 ここで現在のディレクトリを表す相対パス「.」を指定することで カレントディレクトリを取得できます。
サンプルコードは次の通りです。
'ファイルシステムオブジェクト作成
Set objFS = CreateObject("Scripting.FileSystemObject")
' カレントディレクトリの絶対パス
strDir = objfs.GetAbsolutePathName(".")
WScript.Echo strDir
一つ上のディレクトリを取得したい場合は、 引数に「..」を指定します。
' 親ディレクトリの絶対パス
strDir = objfs.GetAbsolutePathName("..")