Bir klasöre bir dosya eklendiğinde VBScript'i tetikle

Question

Bazı görevleri otomatikleştirmek istiyorum. Dosyaları bir klasörden diğerine taşımam gerekiyor. Aşağıdaki senaryoyu iyi çalıştıran yazıyı yazdım.

Ancak gereksinim, bir dosya oluşturulduğunda veya bir klasöre eklendiğinde, arka planda, bu VB komut dosyasını otomatik olarak tetiklemektir.

'Script Begins 

With CreateObject("Scripting.FileSystemObject") 
    .MoveFile "C:\Source\Files\*.*", "D:\Destination\Files\" 
End With 

'Script Ends 

Answer 1

InstanceCreationEvent

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ 
("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE Targetinstance ISA 'CIM_DirectoryContainsFile' and TargetInstance.GroupComponent= 'Win32_Directory.Name=""c:\\\\scripts""'") 
Do 
    Set objLatestEvent = colMonitoredEvents.NextEvent 
    With CreateObject("Scripting.FileSystemObject") 
     .MoveFile "C:\Source\Files\*.*", "D:\Destination\Files\" 
    End With 
Loop 

InstanceModificationEvent

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ 
("SELECT * FROM __InstanceModificationEvent WITHIN 10 WHERE Targetinstance ISA 'CIM_DirectoryContainsFile' and TargetInstance.GroupComponent= 'Win32_Directory.Name=""c:\\\\scripts""'") 
Do 
    Set objLatestEvent = colMonitoredEvents.NextEvent 
    Wscript.Echo objLatestEvent.TargetInstance.PartComponent 
Loop 

InstanceDeletionEvent

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ 
("SELECT * FROM __InstanceDeletionEvent WITHIN 10 WHERE Targetinstance ISA 'CIM_DirectoryContainsFile' and TargetInstance.GroupComponent= 'Win32_Directory.Name=""c:\\\\scripts""'") 
Do 
    Set objLatestEvent = colMonitoredEvents.NextEvent 
    Wscript.Echo objLatestEvent.TargetInstance.PartComponent 
Loop