Bat Juntar todos os arquivos de subpastas em uma pasta única

[Loclyh]

Olá ScripMaker's  !!!

 

Gostaria de vê com vocês essa forma,  tipo :

Tenho 1 pasta   com 20 SubPastas "e nessas 20 pastas contem 10 pastas cada, contendo arquivos em .PDF.

 

gostaria que, com um script mover todos os PDF para uma pasta única, deixando os PDF todos em 1 pasta só.

 

Desde de já, grato pela ajuda.

[ricardo_br]

Tente esse código, so mudar essa parte:

 

set Origem=%userprofile%\desktop\Origem
set Destino=%userprofile%\desktop\Destino

 

@echo off
chcp 1252> Nul

set Origem=%userprofile%\desktop\Origem
set Destino=%userprofile%\desktop\Destino
set Tipo=.pdf

for /r %Origem% %%a in (*%Tipo%) do (
if /i exist "%Destino%\%%~nxa" (
set "Arquivo=%%~na"
set "Extencao=%%~xa"
set "Completo=%%a"
call :Renomear
)
if /i not exist "%Destino%\%%~nxa" copy "%%a" "%Destino%"
)

exit

:Renomear
for /l %%b in (1,1,100) do if /i not exist "%Destino%\%Arquivo%(%%b)%Extencao%" copy "%Completo%" "%Destino%\%Arquivo%(%%b)%Extencao%"& goto :EOF
goto :EOF

 

[Loclyh]

@ricardo_br

Bom dia

 

esse caminho funciona bem quando está em outro HD? e o scrip estiver no c :
porém já movi o scrip e não rodou.
Tipo 

 

@echo off
chcp 1252> Nul

set Origem=G:\Users\Ricardo\Documents\5000ª integração\12.15.41-50- PDF UNIFICADO ok
set Destino=G:\Users\Ricardo\Documents\5000ª integração\
set Tipo=.pdf

for /r %Origem% %%a in (*%Tipo%) do (
if /i exist "%Destino%\%%~nxa" (
set "Arquivo=%%~na"
set "Extencao=%%~xa"
set "Completo=%%a"
call :Renomear
)
if /i not exist "%Destino%\%%~nxa" copy "%%a" "%Destino%"
)

exit

:Renomear
for /l %%b in (1,1,100) do if /i not exist "%Destino%\%Arquivo%(%%b)%Extencao%" copy "%Completo%" "%Destino%\%Arquivo%(%%b)%Extencao%"& goto :EOF
goto :EOF

 

[ricardo_br]

Olá @Loclyhpor favor verifique se o script foi salvo como ansi e tente remover a barra invertida ao final do destino "\" deixando:

 

set Destino=G:\Users\Ricardo\Documents\5000ª integração

 

 

[Loclyh]

@ricardo_br

 

Opa Ricardo.

mesmo salvando em ANSI, e sem barra no final,
quando se está em outro HD não continua o processo.

 

 

@echo off
chcp 1252> Nul

set Origem=G:\Users\Ricardo\Documents\REALIZAR IMPORTAÇÃO DE ARQUIVOS EBSERH\
set Destino=G:\Users\Ricardo\Documents\1 Importacao OS30\
set Tipo=.pdf

for /r %Origem% %%a in (*%Tipo%) do (
if /i exist "%Destino%\%%~nxa" (
set "Arquivo=%%~na"
set "Extencao=%%~xa"
set "Completo=%%a"
call :Renomear
)
if /i not exist "%Destino%\%%~nxa" copy "%%a" "%Destino%"
)

exit

:Renomear
for /l %%b in (1,1,100) do if /i not exist "%Destino%\%Arquivo%(%%b)%Extencao%" copy "%Completo%" "%Destino%\%Arquivo%(%%b)%Extencao%"& goto :EOF
goto :EOF

[ricardo_br]

Quando A Origem e o Destino estão em HDs diferentes não funciona é isso?

 

 

[Loclyh]

Quando executo na particição principal do windows pega  "C:"

 

 

quando executo em outro HD instalado G: não pega.

[ricardo_br]

Eu testei aqui Colocando Origem e Destino em "D:", Origem em "D:" e Destino em "c:", Copiar o bat para "d:" e todos deram certo.

 

Poderia colocar um pause antes do "exit" para ver quais mensagens de erro aparecem?

[Loclyh]

@ricardo_br, boa tarde!

Amigo, ao invés de eu mover, gostaria de copiar todos os pdf, para uma pasta única .
teria como?

[ricardo_br]

Pelo que eu tô vendo ele já está copiando, se você quiser mover é só trocar copy por move

[Loclyh]

Vlwww @ricardo_br, excelente domingo!
vou fazer aqui com uns 10 mil pdf em diversas Sub pastas.