同一ファイルを同時に開く事ができないので アプリケーションが終了するまで、二つ目は実行できません。 終了するとファイルがクローズされるので、次の実行が可能です 拡張子:txtvbswsfjsphpjavahtmlutf8sjis Set fso = CreateObject("Scripting.FileSystemObject") Dim LockFilePath Const ForAppending = 8 ' 書き込み権限のある絶対パス LockFilePath = "C:\TEMP\" & WScript.ScriptName & ".lck" on error resume next Set MyFile = fso.OpenTextFile(LockFilePath, ForAppending, True) if Err.Number <> 0 then Wscript.Echo "二重起動されました" else MyFile.WriteLine Now() & vbTab & "正常起動されました" Wscript.Sleep 2000 end if on error goto 0 せっかくファイルを開いているので、ログとして使用しています
Set fso = CreateObject("Scripting.FileSystemObject") Dim LockFilePath Const ForAppending = 8 ' 書き込み権限のある絶対パス LockFilePath = "C:\TEMP\" & WScript.ScriptName & ".lck" on error resume next Set MyFile = fso.OpenTextFile(LockFilePath, ForAppending, True) if Err.Number <> 0 then Wscript.Echo "二重起動されました" else MyFile.WriteLine Now() & vbTab & "正常起動されました" Wscript.Sleep 2000 end if on error goto 0