'Option Explicit
'
'------------------------------------------------------------------------------
'
' 実行したPathを取得する
'
' FullPathからScriptを除いたら、実行パスを取得した事となる。
'     c:\sample\sample2.vbs <- FullPath
'     ~~~~~~~~~~ <- Path
' ScriptName -> ^^^^^^^^^^^
' 
'------------------------------------------------------------------------------
Dim Wk_ScriptName                                                               ' 自スクリプト名称
Dim Wk_ScriptFullName                                                           ' FullPath付自スクリプト名称
Dim Wk_Path                                                                     ' Pathのみ

'
'------------------------------------------------------------------------------
' 初期値設定
'------------------------------------------------------------------------------
    Wk_ScriptName       = WScript.ScriptName                                    ' 自スクリプト名称
    Wk_ScriptFullName   = WScript.ScriptFullName                                ' FullPath付自スクリプト名称
    Wk_Path             = Left(Wk_ScriptFullName, Len(Wk_ScriptFullName) - Len(Wk_ScriptName))

    MsgBox Wk_Path