Ordner-Überwachung per Skript

Hallo,
richtig, um das Verbieten bestimmter Dateitypen ging`s nun wirklich nicht.
Ich nutze "POPcon" (www.popcon.de). Leider habe ich da keine Möglichkeiten zu sowas.
Hab auch noch mal in meinem Batch/Script-Ordner gekramt und bin tatsächlich auf was gestossen.
In diesem Fall hatte ich alle 15min (mittels Taskplaner) einen Ordner überwacht, ob neue Dateien

Anfang !!!

' Ordnerüberwachung:

' Art der verwendeten Logbucheinträge, 0 = Success, 1 = Error, 2 = Warning, 4 = Information
NEWEVENT = 1
DELEVENT = 2

' Verzeichnis, in dem die Dateien protokolliert werden sollen
LOGDIR = "C:\Programme\POPcon\"
' Dateien, die gesucht werden sollen
FILEMASK = "*.msg"

' Art der verwendeten Logbucheinträge, 0 = Success, 1 = Error, 2 = Warning, 4 = Information
NEWEVENT = 1
DELEVENT = 2

' Diese temporäre Datei wird für den Vergleich benötigt. Das Script muss im verwendeten Verzeichnis Schreibrechte haben.
DIRFILE = "C:\Programme\POPcon\Log.txt"

' NewDel = 1: Alle Unterschiede protokollieren
' NewDel = 0: Nur neu hinzugekommene Dateien protokollieren
NewDel = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

'Alte Liste aus DIRFILE in Array Zeile0() einlesen
If objFSO.FileExists(DIRFILE) Then 'DIRFILE vorhanden
Set objDirFile = objFSO.OpenTextFile(DIRFILE, 1)
If Not objDirFile.AtEndOfStream Then 'DIRFILE nicht leer
strZeile0 = objDirFile.ReadAll
Zeile0 = Split(strZeile0, vbCrLF)
Else
Zeile0 = Array("")
End If 'DIRFILE nicht leer
Else
Zeile0 = Array("")
End If 'DIRFILE vorhanden

' Alle Err-Dateien aus dem Ordner sortiert in das Array Zeile1() einlesen
strCMD = objShell.ExpandEnvironmentStrings("%ComSpec%") & " /c dir " & LOGDIR & "\" & FILEMASK & " /b /od /a-d 2>nul"
strZeile1 = objShell.Exec(strCMD).StdOut.ReadAll
Zeile1 = Split(strZeile1, vbCrLF)

' Am Ende der Ausführung aktuelle Dateiliste in DIRFILE speichern
objFSO.OpenTextFile(DIRFILE, 2, True).Write strZeile1

' *
' Dateivergleich zwischen Content.txt (Zeile0) und aktueller Liste (Zeile1)
' *

If LCase(Trim(strZeile0)) <> LCase(Trim(strZeile1)) Then 'Dateiliste hat sich verändert

' Hinzugekommene Dateien in "Hinzu1" schreiben
Hinzu1 = ""
For i = 0 To UBound(Zeile1)
Hinzu = Filter(Zeile0, Zeile1(i), True)
If UBound(Hinzu) = -1 Then Hinzu1 = Hinzu1 & vbCrLF & Zeile1(i)
Next

If Hinzu1 <> "" Then 'Es sind Dateien hinzugekommen
' Event für hinzugekommene Dateien in das Logbuch schreiben
EventStr = "Neu hinzugekommene Dateien vom Typ " & FILEMASK & " :"
EventStr = EventStr & Hinzu1
' objShell.LogEvent NEWEVENT, EventStr
'WScript.Echo("EventHinzu: " & EventStr & vbCrLF) 'zu Demozwecken Ausgabe anstatt Event-Eintrag
Set WSHShell = WScript.CreateObject("WScript.Shell") 'Batch-Datei an Eingabeaufforderung übergeben
WSHShell.Run("cmd.exe /c Batch.cmd"), 0, True
End If 'Es sind Dateien hinzugekommen

Else
'WScript.Echo "Keine Unterschiede gefunden!" 'Ausgabe zu Demozwecken
End If

Ende !!!

Nun müsste ich es noch so umstricken, dass bei einer Übereinstimmung mindestens eines Dateinamens das Ereignis ausgelöst wird.
Naja, mal sehen.

Torsten

Hallo bastla,
ich hab`s mal ausprobiert. Der Ordnerinhalt wird auch sauber in die Logdatei geschrieben. Allerdings schlägt offenbar der Vergleich fehl.
Die Testdatei habe ich drin liegen gelassen. Beim zweiten Aufruf des Scripts hätte der Vergleich eigentlich positiv ausfallen müssen und die Batch ausgeführt werden müssen.
Ging aber nicht. Woran könnte das noch liegen?

Torsten

Hallo bastla,
mmm, nun es wurde sauber angezeigt und hat auch funktioniert.
Ich habe ja mittlerweile hin- und herprobiert; offenbar hatte ich irgendwo einen Tippfehler drin.
So ist es also auf jeden Fall lauffähig.
Eine Frage hab ich da noch. Im Normalfall sollte sich ja immer keine msg-Datei darin befinden, nur ganz kurz mal. In den meisten Fällen wird in der Logdatei immer nichts stehen. Wie kann ich nun noch abfangen, dass die Batch gestartet wird wenn bei zwei Aufrufen beides Mal die Logdatei leer ist? In diesem Fall startet momentan ja auch die Batch, da der Inhalt der Logdatei identisch ist.

Torsten

Hallo bastla,
klappt prima; ich hab mich für die zweite Variante entschieden, da das Script ja nicht unnötig weiter ablaufen muss wenn der Ordner ohnehin leer ist.

Vielen Dank für die schnelle Hilfe !!!

Torsten