[El Sanchez]

foma24,

Код:

@Echo Off
SetLocal
Set Source=C:\temp

For %%A In ("%Source%\pb*.*") Do Call :_Proc "%%A"
GoTo :EoF

:_Proc
	Set FN=%~n1
	If Not "%FN:~9,1%"=="" XCopy /Y %1 "%~dp1%FN:~2,4%-%FN:~6,2%-%FN:~8,2%\"

[foma24]

еще вопросов, а если файл вот такого вида KWTFCB_PB1_ROOXXXXXXXX_XXXXYYYYMMDD_XXX.TXT

FN:~9,1 подразумевает 10 символов
а на такой файл выдает Недопустимое число параметров

[El Sanchez]

FN:~9,1 подразумевает 10 символов »

foma24, это подразумевает, что если в имени файла есть 10 символ, то можно получать из этого имени дату, не боясь, что символов не хватит.

а на такой файл выдает Недопустимое число параметров »

foma24, а на такой файл маски в for нет. Показывайте, что изменили в скрипте.

[foma24]

Глупую ошибку допустил)

Вот скрипт:

Код:

SetLocal
Set Source=C:\111

For %%A In ("%Source%\*.*") Do Call :_Proc "%%A"
GoTo :EoF

:_Proc
	Set FN=%~n1
	If Not "%FN:~9,1%"=="" XCopy /Y %1 "C:\222\%FN:~2,4%-%FN:~6,2%-%FN:~8,2%\"
pause

вопрос такой, если у меня в одну папку кидаются и pbyyyymmdd и KWTFCB_PB1_ROOXXXXXXXX_XXXXYYYYMMDD_XXX.TXT как сделать так чтобы и то и то копировалось в папку C:\222\%FN:~2,4%-%FN:~6,2%-%FN:~8,2%\
kwt ведь создает свою папку TFCB-_P-1_ из за указания номеров символов в коде

[El Sanchez]

вопрос такой, если у меня в одну папку кидаются и pbyyyymmdd и KWTFCB_PB1_ROOXXXXXXXX_XXXXYYYYMMDD_XXX.TXT как сделать так чтобы и то и то копировалось в папку C:\222\%FN:~2,4%-%FN:~6,2%-%FN:~8,2%\ »

foma24,

Код:

@Echo Off
SetLocal
Set Source=C:\111

For %%A In ("%Source%\pb*.*" "%Source%\KWTFCB*.*") Do Call :_Proc "%%A"
GoTo :EoF

:_Proc
	Set FN=%~n1
	Echo:%FN%|FindStr /i ^^pb&&If Not "%%FN:~9,1%%"=="" XCopy /Y %1 "C:\222\%FN:~2,4%-%FN:~6,2%-%FN:~8,2%\"
	Echo:%FN%|FindStr /i ^^KWTFCB&&If Not "%%FN:~34,1%%"=="" XCopy /Y %1 "C:\222\%FN:~27,4%-%FN:~31,2%-%FN:~33,2%\"