［Script］［VBS］初期処理サンプル

初期処理で引数チェックを行ったりする例です。

起動状態チェック（WScript.FullName）

'起動状態チェックでは、cscript.exe から起動した場合でないときはエラーで処理を終了します。

'定数
Const CSCRIPT_EXE = "cscript.exe"

'------------------------------
' 起動状態チェック
' cscript からの起動のみ許可する
'------------------------------
IF LCase(Right(WScript.FullName, Len(CSCRIPT_EXE))) <> CSCRIPT_EXE Then
  WScript.Echo CSCRIPT_EXE & "から実行してください"
  WScript.Quit
End IF

引数チェック（WScript.Arguments）

'引数チェックでは、引数が１つだけあること、そして引数のファイルが存在しないときはエラーで処理を終了します。

'定数
Const ARG_ERR_MSG = "USAGE: cscript  This_Script_Name.vbs  Param_File"

'------------------------------
' 引数チェック
'------------------------------
Set objArgs = WScript.Arguments
Set objFileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")

' 個数
If objArgs.Count <> 1 Then
  WScript.Echo ARG_ERR_MSG
  WScript.Quit
End If

'引数のファイル存在確認
If Not objFileSystemObject.FileExists( objArgs(0) ) Then
  WScript.Echo "指定されたファイルが存在しません"
  WScript.Echo ARG_ERR_MSG
  WScript.Quit
End If

---

Script のページに戻る