[Molchune]

Ну вот как то так

читать дальше »

Код:

@echo Off
cls
 
set $dd=%DATE:~0,2%
set $mm=%DATE:~3,2%
set $yyyy=%DATE:~6,4%
set Share="y:\"%$yyyy%"\"%$mm%"\"%$dd%"\ToPrint\*.prt-*" 
set Worlds="ABC.101 ABC.200" 
 
Set Index=%~n0.EXCLUDE
 
if Not Exist %Index% Echo %Index% >%Index%
 
Call :Printer %Share%
 
GoTo:Eof
:Printer
 
FOR /F "usebackq delims=" %%i IN (`xcopy /L /S /EXCLUDE:%Index% %1 "%Tmp%\" 2^>nul^`) DO (
    If  Exist  "%%i" (
        for /f "usebackq delims=" %%a in (`findstr.exe /m /i %Worlds% %%i`)  do  ( 
            REM   для печати echo %%a заменить на notepad /P "%%a"
            echo %%a
            echo %%a >>%Index%
            )
     ) 
)

для печати echo %%a заменить на notepad /P "%%a" (1 раз)

[aRHangel2013]

Спасибо!!!