file - ventajas - visual basic script descargar

Activar un VBScript cuando se agrega un archivo a una carpeta

Question

Esta pregunta ya tiene una respuesta aquí:

• Monitorear unidad. Usando VB Script 1 respuesta

Deseo automatizar algunas tareas. Necesito mover archivos de una carpeta a otra. He escrito el guión a continuación, que funciona bien.

Pero mi requisito es activar este script VB automáticamente, en segundo plano, cuando se crea o se agrega un archivo a una carpeta.

''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