for %%a in (C:\ICR\DATA\?_*_*_*.txt) do (
for /f "tokens=1,2 delims=_" %%b in ("%%a") do (
for /f "tokens=* delims=0" %%d in ("%%c") do (call :comando %%a %%b %%d)
)
)
goto :eof

:comando
set n0=%~1
set n1=%~nx2
set n2=%~3
set n3=%~n1

@echo off
title Encolador Automatico Uso especial en CDRA
color 4f
ECHO --------------------------------------------------------------------------
echo ENCOLADOR AUTOMATICO ICR xxxxx 
ECHO --------------------------------------------------------------------------
echo. 
echo.

rem --Crea los directorios "Procesados, 1, 2, 3, Registros"--
echo Creando Directorios de Respaldo
echo.
IF NOT EXIST c:\ICR\DATA\Procesados MKDIR c:\ICR\DATA\Procesados
IF NOT EXIST c:\ICR\DATA\Procesados\1 MKDIR c:\ICR\DATA\Procesados\1
IF NOT EXIST c:\ICR\DATA\Procesados\2 MKDIR c:\ICR\DATA\Procesados\2
IF NOT EXIST c:\ICR\DATA\Procesados\3 MKDIR c:\ICR\DATA\Procesados\3
IF NOT EXIST c:\ICR\DATA\Procesados\Registros MKDIR c:\ICR\DATA\Procesados\Registros
cls

rem --Crea en la carpeta "ICR" un Script que borra los txt con un mes de antiguedad--
rem --EL SCRIPT BORRA DESDE LA CARPETA "PROCESADOS" TODAS LAS SUBCARPETAS QUE ENCUENTRE DENTRO.
echo Creando Script de VBS
echo ^set objshell = createobject("wscript.shell") >> delfull.vbs
echo objshell.run "cmd /c dir C:\ICR\DATA\Procesados /s /b > temp.txt",vbhide >> delfull.vbs
echo wscript.sleep 2000 >> delfull.vbs
echo ^set objfso = createobject("scripting.filesystemobject") >> delfull.vbs
echo ^set temp = objfso.opentextfile("temp.txt",1) >> delfull.vbs
echo do until temp.atendofstream >> delfull.vbs
echo fi = temp.readline >> delfull.vbs
echo if objfso.fileexists(fi) = true then >> delfull.vbs
echo if objfso.getfile(fi).parentfolder.name ^<^> Registros then >> delfull.vbs
echo if datediff("m",objfso.getfile(fi).datecreated,now()) ^>= 1 then >> delfull.vbs
echo objfso.deletefile(objfso.getfile(fi).path) >> delfull.vbs
echo end if >> delfull.vbs
echo end if >> delfull.vbs
echo end if >> delfull.vbs
echo loop >> delfull.vbs
echo temp.close >> delfull.vbs

rem --Este codigo ejecuta el Script creado en la carpeta--
start /wait delfull.vbs

rem --Borra el Script de la carpeta--
del delfull.vbs

rem --Esto borra el txt creado por el script VBS--
del temp.txt

rem --Busca los txt del directorio "\DATA\", segun la empresa y la sucursal genera el codigo y lo ejecuta--
echo Se cargaran los Archivos y se Realizara el Backup
echo.
for %%a in (C:\ICR\DATA\?_*_*_*.txt) do (
for /f "tokens=1,2 delims=_" %%b in ("%%a") do (
for /f "tokens=* delims=0" %%d in ("%%c") do (call :comando %%a %%b %%d)
)
)
goto :eof

:comando
set n0=%~1
set n1=%~nx2
set n2=%~3
set n3=%~n1
C:\ICR\DATA\encolador.exe N %n0% Tabla:Entrada %n1% %n2% N sa sa CDRA-BAS BASCDR
rem --Comprueba si existen las carpetas de empresa y sucursal segun los archivos que encuentre y crea las carpetas--
IF NOT EXIST c:\ICR\DATA\Procesados\%n1%\%n2% MKDIR c:\ICR\DATA\Procesados\%n1%\%n2%
rem --Copia cada archivo txt a su carpeta que corrsponda de empresa y sucursal--
copy /y %n0% "c:\ICR\DATA\Procesados\%n1%\%n2%\"
rem --Elimina los txt del directorio "\DATA\"--
del /q %n0%
rem --Genera un archivo txt en la carpeta "\Registros\" con los comando que creo y ejecuto el BAT--
echo EMPRESA: %n1% SUCURSAL: %n2% PERIODO: %n3:~-13% >>%SYSTEMDRIVE%\ICR\DATA\Procesados\Registros\%date:~0,2%-%date:~3,2%-%date:~6,4%-%time:~0,2%.%time:~3,2%.txt

echo EMPRESA: %n1% SUCURSAL: %n2% PERIODO: %n3:~-13% >>%SYSTEMDRIVE%\ICR\DATA\Procesados\Registros\%date:~0,2%-%date:~3,2%-%date:~6,4%-%time:~0,2%.%time:~3,2%.txt

for %%a in (C:\ICR\DATA\?_*_*_*.txt) do (
for /f "tokens=1,2 delims=_" %%b in ("%%a") do (
for /f "tokens=* delims=0" %%d in ("%%c") do (call :comando %%a %%b %%d)
)
)
goto :eof

:comando
set n0=%~1
set n1=%~nx2
set n2=%~3
set n3=%~n1