1

Имеется скрипт, который выполняет следующее:

  • При появлении файла с расширением 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
4
  • На моей машине воспроизвести проблему не удалось - все нормально работает. Заинтересовался, погуглил. Основные проблемы могут быть: а) с точками в пути/имени(?), б) недостаточно прав (UAC / не админ), в) в каталоге назначения уже есть файл с таким именем. Предложу протестировать копирование изолированно. Commented 12 февр. 2023 в 17:37
  • 1. Точек в пути нет... 2. Права прописал себе на папку и на запускаемый файл 3. Одинаковых файлов нет.... Проблема в том, что в игре, после каждого убийства появляется запись с убийством. И этот файл сразу пытается копироваться...
    – Nicolayka
    Commented 12 февр. 2023 в 17:47
  • Если скрипт пытается копировать файл во время записи в него, то можно подождать, когда файл станет доступен, и скопировать. Цикл с обработкой ошибки доступа и небольшой задержкой, например. Commented 12 февр. 2023 в 17:54
  • Я вот думаю, как задержку прописать.... Немного не понимаю, как работает
    – Nicolayka
    Commented 12 февр. 2023 в 18:09

1 ответ 1

2

Вариант цикла с задержкой для обработки файла. В данном случае - удаления, так проще осуществить временное блокирование файла. На копировании не тестировал.

iName = "c:\test\iPath\test.mp3"
oName = "c:\test\oPath\"
Set oFSO = CreateObject("Scripting.FileSystemObject")
on error resume Next
do: ' пока файл заблокирован (проигрывается), будет повторяться цикл
    WScript.Echo "Before oFSO..."
    'oFSO.CopyFile iName, oName, True
    oFSO.DeleteFile iName, True
    if err.number=0 then exit Do
    err.clear
    wsh.Sleep 1000
loop
WScript.Echo "Operation completed" 

Как-то давно делал ожидание завершения процесса на VBA (распаковка файлов из архива) через WaitForSingleObject. Не очень близко, но сам подход может пригодиться.

Public Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Public Const SYNCHRONIZE = &H100000
Public Const INFINITE = &HFFFFFFFF

Public Function SyncShell(ByVal ProcessID As Long)
    On Error GoTo SyncShell_Error
    ProcessHandle = OpenProcess(SYNCHRONIZE, True, ProcessID)
    WaitForSingleObject ProcessHandle, INFINITE
    SyncShell = True
    Exit Function
SyncShell_Error:
    On Error GoTo 0
    SyncShell = False
    Exit Function
End Function

Sub RARUnPack(Folder As String)
    Dim rslt As Long
    pathtoRAR = "c:\Program Files\WinRAR\WinRAR.exe"

    rslt = Shell(pathtoRAR & " e -inul -o- -y """ & Folder & "\*.rar"" """ & Folder & """", vbNormalFocus)
    c = SyncShell(rslt)
    MyAppActive
End Sub

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.