VBScript

引数表示

Dim args, arg
Set args = WScript.Arguments
For Each arg In args
    MsgBox(arg)
Next

スクリプトのディレクトリパスを取得する

Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
MsgBox(GetScriptDir())

Function GetScriptDir()

    Dim o
    Set o = Fso.GetFile(WScript.ScriptFullName)
    Set o = o.ParentFolder
    If Right(o.Path, 1) = "\" Then
        GetScriptDir = o.Path
    Else
        GetScriptDir = o.Path & "\"
    End If

End Function

  • 最終更新:2013-02-19 09:45:09

このWIKIを編集するにはパスワード入力が必要です

認証パスワード