カレントディレクトリ名を取得する

 Function getCurrentDir()
    Dim objWShell
    set objWShell = CreateObject( "WScript.Shell" )
    getCurrentDir = objWShell.CurrentDirectory
    set objWShell = Nothing
end Function