Cómo monitorear archivos de carpeta por vbs
¿Puede alguien ayudarme donde me equivoque? esta secuencia de comandos es para la carpeta de monitoreo para crear, eliminar o modificar archivos de texto
<code>sPath = "C:\scripts\test" sComputer = "." sDrive = split(sPath,":")(0) sFolders1 = split(sPath,":")(1) sFolders = REPLACE(sFolders1, "\", "\\") & "\\" Set objWMIService = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE " _ & "TargetInstance ISA 'CIM_DataFile' AND " _ & "TargetInstance.Drive='" & sDrive & "' AND " _ & "TargetInstance.Path='" & sFolders & "' AND " _ & "TargetInstance.Extension = 'txt' ") Wscript.Echo vbCrlf & Now & vbTab & _ "Begin Monitoring for a Folder " & sDrive & ":" & sFolders1 & " Change Event..." & vbCrlf Do Set objLatestEvent = colMonitoredEvents.NextEvent Select Case objLatestEvent.Path_.Class Case "__InstanceCreationEvent" WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName & "." & objLatestEvent.TargetInstance.Extension _ & " was created" & vbCrlf Case "__InstanceDeletionEvent" WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName & "." & objLatestEvent.TargetInstance.Extension _ & " was deleted" & vbCrlf Case "__InstanceModificationEvent" If objLatestEvent.TargetInstance.LastModified <> _ objLatestEvent.PreviousInstance.LastModified then WScript.Echo Now & vbTab & objLatestEvent.TargetInstance.FileName & "." & objLatestEvent.TargetInstance.Extension _ & " was modified" & vbCrlf End If End Select Loop Set objWMIService = nothing Set colMonitoredEvents = nothing Set objLatestEvent = nothing </code>
Este script se ejecuta perfecto cuando escribo
<code>sPath = "\\ComputerName\C$\scripts\test" </code>
insted de
<code>sPath = "C:\scripts\test" </code>
Gracias....