カレントディレクトリ取得

WScript.Shell# CurrentDirectory

Option Explicit

Dim objShell
Dim curDir

' カレントディレクトリ取得.
Set objShell = CreateObject( "WScript.Shell" )
curDir = objShell.CurrentDirectory

Set objShell = Nothing

WScript.Echo curDir

カレントディレクトリを取得するサンプルです。
何だかんだ言いながらよく使うので、共通関数みたいな扱いにしたいやつです。