WSH: Копирование с ведением лога скопированных файлов

Option Explicit

Dim strSourceFolder
Dim strDestFolder
Dim strMask

Dim strComputer

Dim objFSO

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemSink
Dim objSWbemEventSource

Dim objDictionary
Dim strFileName


strSourceFolder = "E:\Песочница\0095\0001"
strDestFolder   = "E:\Песочница\0095\0002"
strMask         = "[AJ]4___200.7kz"

strComputer     = "."

Set objFSO              = WScript.CreateObject("Scripting.FileSystemObject")

Set objSWbemLocator     = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx  = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

Set objSWbemSink        = WScript.CreateObject("WbemScripting.SWbemSink","WbemSink_")

objSWbemServicesEx.ExecNotificationQueryAsync objSWbemSink, _
    "SELECT * FROM __InstanceModificationEvent WHERE " & _
    "TargetInstance ISA 'Win32_LocalTime' AND " & _
    "TargetInstance.Hour = 0 AND " & _
    "TargetInstance.Minute = 31 AND " & _
    "TargetInstance.Second = 0"

Set objSWbemEventSource = objSWbemServicesEx.ExecNotificationQuery( _
    "SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
    "TargetInstance ISA 'CIM_DataFile' AND " & _
    "TargetInstance.Drive = '" & objFSO.GetDriveName(strSourceFolder) & "' AND " & _
    "TargetInstance.Path = '" & Replace(objFSO.BuildPath(Mid(strSourceFolder, Len(objFSO.GetDriveName(strSourceFolder)) + 1), "\"), "\", "\\") & "' AND " & _
    "TargetInstance.FileName LIKE '" & Split(strMask, ".")(0) & "' AND " & _
    "TargetInstance.Extension = '" & Split(strMask, ".")(1) & "'")

Set objDictionary       = WScript.CreateObject("Scripting.Dictionary")

Do
    With objSWbemEventSource.NextEvent.TargetInstance
        WScript.Echo
        WScript.Echo Now() & " New file [" & .Name & "] found"
        
        strFileName = .FileName & "." & .Extension
        
        If Not objDictionary.Exists(strFileName) Then
            If .Rename(strDestFolder & "\" & strFileName) = 0 Then
                WScript.Echo Now() & " File [" & .Name & "] moved into [" & strDestFolder & "] successfully"
                
                objDictionary.Add strFileName, .Name
            Else
                WScript.Echo Now() & " Can't move file [" & .Name & "] into [" & strDestFolder & "]"
            End If
        Else
            WScript.Echo Now() & " File name [" & .Name & "] is duplicate of previous file name"
            
            If .Delete() = 0 Then
                WScript.Echo Now() & " Duplicate file [" & .Name & "] deleted successfully"
            Else
                WScript.Echo Now() & " Can't delete duplicate file [" & .Name & "]"
            End If
        End If
    End With
Loop

objSWbemSink.Cancel

Set objDictionary       = Nothing
Set objSWbemEventSource = Nothing
Set objSWbemSink        = Nothing
Set objSWbemServicesEx  = Nothing
Set objSWbemLocator     = Nothing
Set objFSO              = Nothing

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub WbemSink_OnObjectReady(objSWbemObjectEx, objSWbemAsyncContext)
    objDictionary.RemoveAll
    
    WScript.Echo Now() & " Clear list of duplicate file names"
End Sub
'=============================================================================

@Echo OFF
::: В данную переменную заносим путь основного копирования (каталог Б, для обработки)
set DEST_B=c:\test_B
::: Заносим путь дублирующего копирования - архив имен файлов за текущий день, для дальнейших проверок при отлавливании дублей.
::: В начале дня этот каталог надо чистить, например, командой: DEL c:\test_DAY\*.7kz
set DEST_ARCNAMES=c:\test_DAY

::: Переходим в каталог А
c:
CD \test_A

:: Вывод списка всех 7kz-файлов - для отладки
Echo --- List folder A :
dir /w /b DEST_ARCNAMES *.7kz & Echo. & Pause & Echo.

::: В FOR в скобках IN перечисляем через ";" свои шаблоны поиска копируемых файлов
:: переменная %%I - полный путь и имя текущего файла 
:: переменная %%~nI%%~xI -- только имя с расширением текущего файла 
FOR /R %%I IN (a4???200.7kz;j4???200.7kz) DO (
	Echo Searching in %DEST_ARCNAMES% file - %%~nI%%~xI ...
	IF EXIST %DEST_ARCNAMES%\%%~nI%%~xI ( 
		:: сообщаем о нахождении дубля
		Echo -!- This is double. Don't copy.
	) ELSE (
		:: копируем текущий файла для обработки
		<nul set /p strTemp=--step1-- Need copying to %DEST_B%... _
		copy %%I %DEST_B%\*.* 
		
		:: копируем текущий файла в накопительный каталог
		<nul set /p strTemp=--step2-- Duplication in %DEST_ARCNAMES%... _
		:::::copy %%I %DEST_ARCNAMES%\*.* 
		:: или вместо копирования - создаем пустой файл (дешево и сердито, зато время создания файла = времени отправки файла на обработку)
		Echo. 2> %DEST_ARCNAMES%\%%~nI%%~xI
	)
)
Pause
exit

--- List folder A :
A4asd200.7kz
A4qwe200.7kz
B4qwe200.7kz
J4qwe200.7kz
J4qwe201.7kz

Для продолжения нажмите любую клавишу . . .

Searching in c:\test_DAY file - A4asd200.7kz ...
-!- This is double. Don't copy.

Searching in c:\test_DAY file - A4qwe200.7kz ...
--step1-- Need copying to c:\test_B... _Скопировано файлов:         1.
--step2-- Duplication in c:\test_DAY... _Системе не удается найти указанный диск.

Searching in c:\test_DAY file - J4qwe200.7kz ...
--step1-- Need copying to c:\test_B... _Скопировано файлов:         1.
--step2-- Duplication in c:\test_DAY... _Системе не удается найти указанный диск.

Для продолжения нажмите любую клавишу . . .

@Echo OFF
::: В данную переменную заносим путь основного копирования (каталог Б, для обработки)
set DEST_B=c:\test_B
::: Заносим путь дублирующего копирования - архив имен файлов за текущий день, для дальнейших проверок при отлавливании дублей.
::: В начале дня этот каталог надо чистить, например, командой: DEL c:\test_DAY\*.7kz
set DEST_ARCNAMES=c:\test_DAY
::: Переходим в каталог А
c:
CD \test_A

Echo ----- >> log.txt
time /t >> log.txt

FOR /R %%I IN (a4???200.7kz;j4???200.7kz) DO (
	Echo Searching in %DEST_ARCNAMES% file - %%~nI%%~xI ...  >> log.txt
	IF EXIST %DEST_ARCNAMES%\%%~nI%%~xI ( 
		Echo -!- This is double. Don't copy.  >> log.txt
	) ELSE (
		:: копируем текущий файла для обработки
		Echo Copying to %DEST_B%...  >> log.txt
		copy %%I %DEST_B%\*.*        >> log.txt
		:: создаем пустой файл с именем текущий файла в накопительном каталоге
		Echo Duplication in %DEST_ARCNAMES%...   >> log.txt
		Echo. 2> %DEST_ARCNAMES%\%%~nI%%~xI 
	)
)

@Echo OFF
::: В данную переменную заносим путь основного копирования (каталог Б, для обработки)
set DEST_B=c:\test_B
::: Заносим путь дублирующего копирования - архив имен файлов за текущий день, для дальнейших проверок при отлавливании дублей.
::: В начале дня этот каталог надо чистить, например, командой: DEL c:\test_DAY\*.7kz
set DEST_ARCNAMES=c:\test_DAY
::: Определение имени файла протокола в каталоге имен
set LOGNAME=%DEST_ARCNAMES%\_log_%DATE: =0%.txt
::: Переходим в каталог А
c:
CD \test_A

Echo ----- >> %LOGNAME%
time /t >> %LOGNAME%

FOR /R %%I IN (a4???200.7kz;j4???200.7kz) DO (
	Echo Searching in %DEST_ARCNAMES% file - %%~nI%%~xI ...  >> %LOGNAME%
	IF EXIST %DEST_ARCNAMES%\%%~nI%%~xI ( 
		Echo -!- This is double. Don't copy.  >> %LOGNAME%
	) ELSE (
		:: копируем текущий файла для обработки
		Echo Copying to %DEST_B%...  >> %LOGNAME%
		copy %%I %DEST_B%\*.*        >> %LOGNAME%
		:: создаем пустой файл с именем текущий файла в накопительном каталоге
		Echo Duplication in %DEST_ARCNAMES%...   >> %LOGNAME%
		Echo. 2> %DEST_ARCNAMES%\%%~nI%%~xI 
	)
)

@Echo OFF
::: В данную переменную заносим путь основного копирования (каталог Б, для обработки)
set DEST_B=c:\test_B
::: Заносим путь дублирующего копирования - архив имен файлов за текущий день, для дальнейших проверок при отлавливании дублей.
::: В начале дня этот каталог надо чистить, например, командой: DEL c:\test_DAY\*.7kz
set DEST_ARCNAMES=c:\test_DAY
::: Определение имени файла протокола в каталоге имен
set LOGNAME=%DEST_ARCNAMES%\_log_%DATE: =0%.txt
::: Переходим в каталог А
c:
CD \test_A
 
Echo ----- >> %LOGNAME%
time /t >> %LOGNAME%
 
FOR /R %%I IN (a4???200.7kz;j4???200.7kz) DO (
    Echo Searching in %DEST_ARCNAMES% file - %%~nI%%~xI ...  >> %LOGNAME%
    IF EXIST %DEST_ARCNAMES%\%%~nI%%~xI ( 
        Echo -!- This is double. Don't copy.  >> %LOGNAME%
    ) ELSE (
        :: копируем текущий файла для обработки
        Echo Copying to %DEST_B%...  >> %LOGNAME%
        copy %%I %DEST_B%\*.*        >> %LOGNAME%
        :: создаем пустой файл с именем текущий файла в накопительном каталоге
        Echo Duplication in %DEST_ARCNAMES%...   >> %LOGNAME%
        Echo. 2> %DEST_ARCNAMES%\%%~nI%%~xI 
    )
)