Re: Mehrfache gleichzeitige Ausführung verhin dern (bzw. prüfen, ob ein Programm bereit s läuft?)

From: René Ziller (rz_hilfe_at_hotmail.com)
Date: 08/26/04


Date: Thu, 26 Aug 2004 00:21:16 -0700

Alexander Suellentrop <nospam.usenet@oleco.net> schrieb:

> Set fso = WScript.CreateObject("Scripting.FileSystemObject")
> On Error Resume Next
> Set inuse = fso.OpenTextFile("C:\TEMP\IN.USE", 2, True)
...

also bei mir funktioniert das:
<code>
set FSO=createobject("scripting.fileSystemobject")
on error resume next
Set inuse = fso.OpenTextFile("C:\TEMP\IN.USE", 2, True)
if err then
        msgbox "always in use"
else
        msgbox "running successfull"
end if
inuse.close
set inuse=nothing

msgbox "Bearbeitung beendet"
</code>
solange ich die Meldung "running successfull" nicht wegklicke bekomme
ich always in use

ursprünglich dachte ich zwar eher an sowas:
cScript.exe meinScript.vbs > Out.txt

aber ja, Du kannst die Datei auch selber öffnen ...

-- 
René Ziller