[marat-link]

Всем спасибо за попытку решения проблемы. SMprog - Вам отдельное спасибо. Программу написал, ниже привожу ее код (ars.bat -название bat-файла, определяющего дату -40000; файлы рассматриваю только в каталоге C:\1):

Код:

@ECHO OFF 
CALL ARS.BAT %DATE% -40000
FOR /F "SKIP=3 TOKENS=4,5* DELIMS=. " %%A IN (ARS.TXT) DO (
  SET DD=%%A
  SET MM=%%B
  SET YYYY=%%C
)
SET YY=%YYYY:~2,2%
SET DIRNAME=DIR%DD%%MM%%YY%
SET DAT=%DD%%MM%%YY%
SET /A IDX = 1
MKDIR %DIRNAME%

DIR C:\1  /A:-D /B >> FIL.TXT
 FOR /F %%X IN (FIL.TXT) DO (
	CALL :PR1 %%X
)

GOTO:EOF

:PR1
	SET A=%1
	FOR /F "TOKENS=2,4 DELIMS=: " %%Y IN ('DIR C:\1\%A% /-C ^| FINDSTR /R /B /C:"[0-9]*\.[0-9]*\.[0-9]*"') DO (
		CALL :PR2 %A% %%Y)

GOTO:EOF

:PR2 
	SET T=%2
	IF "%T%" GEQ "12" (
		IF "%T%" LEQ "13" (
			CALL COPY C:\1\%A% %DIRNAME% 
			SET ARC_FILE=%DAT%%A%
			REN %DIRNAME%\%A% %ARC_FILE%
			RAR A -DF -SL1258291 ARC.ZIP %DIRNAME%\%ARC_FILE%
			RAR VB ARC.ZIP > REPORT.LOG
			ECHO %IDX% >> REPORT.LOG
			SET /A IDX+=1
		)
	)	

	IF "%T%" GEQ "14" (
		IF "%T%" LEQ "16" (
			CALL COPY C:\1\%A% %DIRNAME% 
			SET ARC_FILE=%DAT%%A%
			REN %DIRNAME%\%A% %ARC_FILE%
			RAR A -DF -SL1258291 ARC.ZIP %DIRNAME%\%ARC_FILE%
			RAR VB ARC.ZIP>REPORT.LOG
			ECHO %IDX% >> REPORT.LOG
			SET /A IDX+=1
		)
	)
	
GOTO:EOF