テキストファイルを使って連番を生成する。
テキストファイルなどにカウンタを書いて、+1で更新して連番を生成するのは、多重処理に耐えません。
では、どうするか?
テキストファイルへの空行の追加書きで、行数をカウンタに使えば、おk。
Option Explicit
Dim fso
Dim Lock
Dim SEQ
Set fso=CreateObject("Scripting.FileSystemObject")
Sub TryLock
On Error Resume Next
Set Lock=fso.OpenTextFile(WScript.ScriptFullName&".SEQ",8,True)
End Sub
Do
TryLock
If Err.Number=0 Then Exit Do
WScript.Sleep 100
Loop
Lock.WriteBlankLines 1
SEQ=Lock.Line-1
Lock.Close
WScript.Echo SEQ
« FileSystemObjectでバイナリを読み書きする。 | トップページ | VBSファイルの実行を逐次化する。 »