strComputer = "." Set objWMIService = GetObject("winmgmts:" &_ "{impersonationLevel=impersonate}!\" &_ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceModificationEvent WITHIN 15 WHERE " _ & "TargetInstance ISA 'CIM_DataFile' and " _ & "TargetInstance.Name='F:\\SCRIPTS\\Fichiers\\test.txt'") Do Set objLatestEvent = colMonitoredEvents.NextEvent MsgBox "File: " & objLatestEvent.TargetInstance.Name &vbCrLf&_ "Size: " & objLatestEvent.TargetInstance.FileSize &vbCrLf&_ "Date: " & objLatestEvent.TargetInstance.LastModified Set objLatestEvent = Nothing Loop Set objWMIService = Nothing Set colMonitoredEvents = Nothing
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &_
"{impersonationLevel=impersonate}!\" &_
strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceModificationEvent WITHIN 15 WHERE " _
& "TargetInstance ISA 'CIM_DataFile' and " _
& "TargetInstance.Name='Q:\Brolekot\test.txt'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
MsgBox "File: " & objLatestEvent.TargetInstance.Name &vbCrLf&_
"Size: " & objLatestEvent.TargetInstance.FileSize &vbCrLf&_
"Date: " & objLatestEvent.TargetInstance.LastModified
Set objLatestEvent = Nothing
Loop
Set objWMIService = Nothing
Set colMonitoredEvents = Nothing ^
strComputer = "." Set objWMIService = GetObject("winmgmts:" &_ "{impersonationLevel=impersonate}!\" &_ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceModificationEvent WITHIN 15 WHERE " _ & "TargetInstance ISA 'CIM_DataFile' and " _ & "TargetInstance.Name='Q:\Brolekot\test.txt'") Do Set objLatestEvent = colMonitoredEvents.NextEvent MsgBox "File: " & objLatestEvent.TargetInstance.Name &vbCrLf&_ "Size: " & objLatestEvent.TargetInstance.FileSize &vbCrLf&_ "Date: " & objLatestEvent.TargetInstance.LastModified Set objLatestEvent = Nothing Loop Set objWMIService = Nothing Set colMonitoredEvents = Nothing ^
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit Const cstFile = "D:\Test.txt" Const cstWaitHour = 2 Dim objFso, objFile Dim curTime, Flag curTime = Now Flag = 0 Set objFso = CreateObject("Scripting.FileSystemObject") Do While Abs(DateDiff("h", curTime, Now)) < cstWaitHour If objFso.FileExists(cstFile) Then Set objFile = objFso.GetFile(cstFile) If DatePart("d",objFile.DateLastModified) = DatePart("d",Date) Then Flag = 1 'call function file found '.... Exit Do End If End If WScript.Sleep(900000) 'wait 15 minutes Loop If Flag = 0 Then MsgBox "File of day not found" Set objFile = Nothing Set objFso = Nothing