Outro Mover arquivos de foto em lotes

[ricardo_br]

1 minuto atrás, Marlon Kaique disse:

Estão na mesma pasta 20060.jpg e 200600.jpg

E todas as fotos indevidas tem 5 carateres ou menos? (Só o nome sem a extensão).

[Marlon Kaique]

Isso mesmo Ricardo 

[ricardo_br]

Agora ele só vai copiar fotos com mais de 5 caracteres no nome:

 

@echo off
chcp 1250
echo.
echo.

Setlocal EnableDelayedExpansion

REM Especifique o local onde estão as pastas:
set Pastas=D:\Trabalhos\Alfa Acessórios\Pastas para importar LJ

REM Especifique o local onde estão os arquivos:
set Arquivos=D:\Trabalhos\Alfa Acessórios\Imagem

pushd %Pastas%
for %%a in (%Arquivos%\*.jpg) do (
set NomeDaFoto=%%~na
for /f "Delims=" %%b in ('dir /b *"%%~na"*') do if /i Not "!NomeDaFoto:~0,-5!"=="" copy /y "%%a" "%%~fb"
)
popd
pause

 

Se quiser apagar todas as fotos com menos de 6 caracteres que já foram copiadas para as pastas pode rodar algo assim:

 

@echo off
setlocal EnableDelayedExpansion

REM Especifique aqui o local das pastas:
set Pastas=D:\Trabalhos\Alfa Acessórios\Pastas para importar LJ

for /r %Pastas% %%a in (*.jpg) do (
set NomeDaFoto=%%~na
If /i "!NomeDaFoto:~0,-5!"=="" del "%%a"
)
pause