Ordnerüberwachung, Batchdatei aufrufen bei neuer Datei

Hallo,

bin jetzt schon seit gut 3 stunden im netz auf recherche, und komm nicht so recht voran.

eigentlich ist mein ziel recht simpel.
ich habe eine videowall, auf der im loop videos vom vlc angezeigt werden. das funktioniert auch soweit gut, mit systemstart.
der besitzer der videowall möchte allerdings gern von außen neue videos nachreichen können, damit diese dann in den loop integriert werden.

dazu habe ich mir die playlist m3u ausgesucht, da man diese recht einfach auch manuell schreiben kann.
geschrieben habe ich bereits 2 batchdateien, die die playlist datei anpassen, bzw erstellen sofern sie noch nicht vorhanden ist.

damit diese batch dateien funktionieren, müssen sie den dateinamen eines videofiles übergeben bekommen, in diesem fall als argument.

nun möchte ich den ordner überwachen, und immer wenn eine neue datei dort hinzukommt oder eine datei gelöscht wird, die passende batch datei mit dem passenden dateinamen aufrufen und füttern.

tja, und genau da komme ich nicht weiter.
kann mir jemand weiterhelfen?

mein bisheriger code:

create-plist.bat:


delete-plist.bat:


(die timeouts sind nur kosmetik, damit man ne chance hat zu lesen, was das batch so von sich gibt )

Vielen Dank schon mal!

Const strObserve = "C:\ordner\der\überwacht\werden\soll"  
Const strBatPath = "C:\pfad\deinedatei.bat"  
Const strSec = "10"  

Set objWSHShell = CreateObject("WScript.Shell")  
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")  
Set colEvents = objWMIService.ExecNotificationQuery _
  ("SELECT * FROM __InstanceCreationEvent WITHIN " & strSec & " WHERE " _  
  & "TargetInstance ISA 'CIM_DirectoryContainsFile' AND " _  
  & "TargetInstance.GroupComponent = 'Win32_Directory.Name=""" _  
  & Replace(strObserve, "\", "\\\\") _  
  & """'")  

Do
  Set objEvent = colEvents.NextEvent()
  strFile = Replace(Replace(Split(objEvent.TargetInstance.PartComponent, "=")(1), "\\", "\"), """", "")  
  objWSHShell.Run "cmd /c """"" & strBatPath & """ """ & strFile & """"""  
Loop

Const strObserve = "W:\Bibliotheken\Videos\videowall axel\"  
Const strBatPath = "W:\Bibliotheken\Videos\videowall axel\create-playlist.bat"  
Const strSec = "10"  

Set objWSHShell = CreateObject("WScript.Shell")   
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")   
Set colEvents = objWMIService.ExecNotificationQuery _ 
	("SELECT * FROM __InstanceCreationEvent WITHIN " & strSec & " WHERE " _   
	& "TargetInstance ISA 'CIM_DirectoryContainsFile' AND " _   
	& "TargetInstance.GroupComponent = 'Win32_Directory.Name=""" _   
	& Replace(strObserve, "\", "\\\\") _   
	& """'")   

Do
	Set objEvent = colEvents.NextEvent() 
	strFile = Replace(Replace(Split(objEvent.TargetInstance.PartComponent, "=")(1), "\\", "\"), """", "")   
	objWSHShell.Run "cmd /c """"" & strBatPath & """ """ & strFile & """"""   
Loop