Имеется скрипт, который выполняет следующее:
- При появлении файла с расширением mp4 в папке "iPath", копирует этот файл в папку "oPath"
При появлении файла в папке "iPath" (перед копированием), сразу выскакивает ошибка
Сам скрипт:
Option Explicit: Dim oFSO, SINK, FName
'——————————————————————————————————————
Const Ext = "mp4" ' расширение файла
Const iPath = "Q:\GameVideos\Temp\Hunt Showdown" ' папка временных файлов
Const oPath = "Q:\GameVideos\Temp\TEST" ' папка, куда копировать
'——————————————————————————————————————
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set SINK = WSH.CreateObject("WbemScripting.SWbemSink", "SINK_")
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecNotificationQueryAsync SINK, "SELECT * FROM __InstanceCreationEvent WITHIN 2 WHERE " & _
"Targetinstance ISA 'CIM_DirectoryContainsFile' and TargetInstance.GroupComponent=" &_
"'Win32_Directory.Name=""" & Replace(iPath, "\", "\\\\") & """'"
Do: wsh.Sleep 60000000 :Loop
Sub SINK_OnObjectReady(oEvent, oAsyncContext)
FName = Replace(Split(oEvent.TargetInstance.PartComponent, """")(1), "\\", "\")
If oFSO.GetExtensionName(FName) = Ext Then oFSO.CopyFile FName, oFSO.BuildPath(oPath, "\"), 1
End Sub