Jak monitorować pliki folderów przez vbs
Czy ktoś może mi pomóc, gdzie się mylę? ten skrypt służy do monitorowania folderu do tworzenia, usuwania lub modyfikowania plików tekstowych
<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>
Ten skrypt działa idealnie, gdy piszę
<code>sPath = "\\ComputerName\C$\scripts\test" </code>
na przykład
<code>sPath = "C:\scripts\test" </code>
Dziękuję Ci....