Can anyone tell me what is wrong with this vbscript code?
I am trying to monitor directory "c:\receive" for new files and, when a file is detected, run macro: "TestFind_Files" which is located in workbook "GetTest.xls." The latest error message is line 7 char 1; invalid query. I copied this code and so far I have just left the the single select case as this usually works fine and I am not sure how to do this properly
Thanks.
I am trying to monitor directory "c:\receive" for new files and, when a file is detected, run macro: "TestFind_Files" which is located in workbook "GetTest.xls." The latest error message is line 7 char 1; invalid query. I copied this code and so far I have just left the the single select case as this usually works fine and I am not sure how to do this properly
Thanks.
Code:
Dim xlApp
Set xlApp = CreateObject("Excel.Application")
strComputer = "."
strDirToMonitor = "C:\\Receive"
strTime = "10"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceOperationEvent WITHIN " & strTime & " WHERE " _
& "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
& "TargetInstance.GroupComponent= " _
& "'Win32_Directory.Name=" & Chr(34) & strDirToMonitor & Chr(34) & "'")
Do
Set objEventObject = colMonitoredEvents.NextEvent()
Select Case objEventObject.Path_.Class
Case "__InstanceCreationEvent"
With xlApp
.Workbooks.Activate ("C:\GetTest")
.Application.Run "TestFind_Files"
.Application.Quit
End With
End Select
Loop
