제안 해 주셔서 감사합니다.
Linker3000의 폴더 폴링에 대한 대략적인 아이디어를 기반으로 VBScript를 작성하고 작업 스케줄러를 사용하여 시작시 실행되도록했습니다. 나는 이 리소스 에서 기본 구문을 얻었고 필요한 조정을했습니다.
나는 여전히 스크립트 중심을 이벤트 중심 시스템에서 실행하면서 어느 시점에서 그것을 최적화하고 싶지만 스크립트 작업을 할 시간이 부족합니다.
관심있는 사람을 위해 스크립트를 작성했습니다.
' FOLDER TO MONITOR
strFolder = "J:\monitored-folder"
' FREQUENCY TO CHECK IT, IN SECONDS
nFrequency = 10
strComputer = "."
strQueryFolder = Replace(strFolder, "\", "\\\\")
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery ("SELECT * FROM __InstanceCreationEvent WITHIN " & nFrequency & " WHERE Targetinstance ISA 'CIM_DirectoryContainsFile' and TargetInstance.GroupComponent='Win32_Directory.Name=""" & strQueryFolder & """'")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
strNewFile = objLatestEvent.TargetInstance.PartComponent
arrNewFile = Split(strNewFile, "=")
strFilePath = arrNewFile(1)
strFilePath = Replace(strFilePath, "\\", "\")
strFilePath = Replace(strFilePath, Chr(34), "")
strFileName = Replace(strFilePath, strFolder, "")
strTempFilePath = WScript.CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\TEMP.M4A"
' DO THE OPERATION STUFF
' ...
Loop
(또한이 질문에 공식적으로 답하지 않고 싶지는 않습니다. 질문에 대한 자신의 답변을 받기를 싫어하지만 Linker3000의 답변을 감사로 찬성했습니다!)