Ms-Dos - Bat para mover grupo de archivos por secuencia de numeros

@echo off

for %%a in (*.tiff) do call :Analiza %%a

GOTO:EOF

:Analiza

	(analiza los ultimos tres digitos)

	goto Sigue

:Sigue

	if (nombre archivo) LSS (nombre archivo siguiente)

	goto Carpeta

:Carpeta

	mkdir (crear carpeta con el nombre del ultimo archivo)

	goto Mover

:Mover

	move (mover grupo de archivos a la carpeta creada)

	goto EOF

@echo off

for %%a in (*.tiff) do call :Analiza %%a

GOTO:EOF

:Analiza

(analiza los ultimos tres digitos)

goto Sigue

:Sigue

if (nombre archivo) LSS (nombre archivo siguiente)

goto Carpeta

:Carpeta

mkdir (crear carpeta con el nombre del ultimo archivo)

goto Mover

:Mover

move (mover grupo de archivos a la carpeta creada)

goto EOF

@echo off

SET Ruta_Origen=C:\Users\Administrador\Desktop\SS

SET Ruta_Destin=C:\Users\Administrador\Desktop\SS\Tmp

FOR %%a in (%Ruta_Origen%\*.tiff) do (

    mkdir     %Ruta_Destin%\%%~na >nul 2>&1

    move  %%a %Ruta_Destin%\%%~na\.

)

@echo off

set Orig=C:\Carlos_1

set Dest=C:\Carlos_2

set Ant_Nume=xxx

set Ant_File=

md %Orig%\Tmp

cd %Orig%

for %%a in (*.tiff) do call :Analiza %%a

call :Analiza 99999999001.tiff

rd %Orig%\Tmp /S /Q

goto :EOF

:Analiza

   set File=%1

   set Num=%File:~8,3%

:Control

   if %Ant_Nume% == xxx goto Sigue

   if not %Num% == 001  goto Sigue

      md   %Dest%\%Ant_File%

      copy %Orig%\Tmp\*.tiff %Dest%\%Ant_File%

      del  %Orig%\Tmp\*.tiff

:Sigue

   set Ant_File=%File:~0,11%

   set Ant_Nume=%Num%

   if Exist %File% move %File% %Orig%\Tmp

   goto :EOF