ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
WSH 二重起動チェック ( No.8 )
日時: 2007/10/05 17:59
名前: lightbox



同一ファイルを同時に開く事ができないので
アプリケーションが終了するまで、二つ目は実行できません。
終了するとファイルがクローズされるので、次の実行が可能です


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
せっかくファイルを開いているので、ログとして使用しています