Script : plusieurs documents en un seul PDF + arborescence

@echo off


:: on teste si nconvert.exe est présent 

if not exist %windir%\system32\nconvert.exe goto :eof


:: répertoire source contenant les documents numérisés

set rep_source=D:\RECUP_GED\3000057\Administratif


:: on teste si le répertoire source existe bien

cd %rep_source%
if not %errorlevel%==0 goto :eof

if not exist "%rep_source%\Documents_PDF" mkdir "%rep_source%\Documents_PDF"


:: on définit un répertoire temporaire

set dir_temp=D:\TMP_jpg_to_pdf


:: on regroupe toutes les pages de chaque document

for /f "tokens=1,2,3 delims=_." %%a in ('dir /b /a-d-s-l "*.jpg"') do (

if not exist %dir_temp%\%%a mkdir %dir_temp%\%%a

copy %%a_%%b.%%c %dir_temp%\%%a\ > nul

)

echo.


:: on traite les documents un par un

cd %dir_temp%

for /f "tokens=*" %%a In ('dir /b /ad "*.*"') do (

set fichier=%%a

cd %dir_temp%\%%a

set /a compteur=0

Setlocal enableextensions enabledelayedexpansion

For /r %%i In (*.jpg) Do (set /a compteur+=1)

if !compteur! GTR 1 (nconvert -in jpeg -out pdf -multi -o res_!fichier!.pdf *.jpg) else (nconvert -in jpeg -out pdf -o res_!fichier!.pdf *.jpg)

echo.

move /y "res_!fichier!.pdf" "!rep_source!\Documents_PDF" > nul

)

Endlocal

cd %USERPROFILE%

rmdir /s /q "%dir_temp%"

explorer /select,"%rep_source%\Documents_PDF"

:eof

@echo off

if not exist %windir%\system32\nconvert.exe goto :eof

cd D:\Recup_GED

if not %errorlevel%==0 goto :eof

for /f "tokens=*" %%K In ('dir /b /ad "*.*"') do (

for /f "tokens=*" %%E In ('dir /b /ad "%%~dpnK\*.*"') do (

if not exist "%%~dpnK\%%E\Documents_PDF" mkdir "%%~dpnK\%%E\Documents_PDF"

if not exist "%%~dpnK\%%E\TMP_jpg_to_pdf" mkdir "%%~dpnK\%%E\TMP_jpg_to_pdf"

for /f "tokens=1,2,3 delims=_." %%A in ('dir /b /a-d-s-l "%%~dpnK\%%E\*.jpg"') do (

if not exist "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A" mkdir "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A"

copy %%~dpnK\%%E\%%A_%%B.%%C %%~dpnK\%%E\TMP_jpg_to_pdf\%%A > nul

)

for /f "tokens=*" %%R In ('dir /b /ad "%%~dpnK\%%E\TMP_jpg_to_pdf\*.*"') do (

set fichier=%%R

set /a compteur=0

Setlocal enableextensions enabledelayedexpansion

For /r %%I In (*.jpg) Do (set /a compteur+=1)

if !compteur! GTR 1 (nconvert -in jpeg -out pdf -multi -c 5 -o res_!fichier!.pdf %%~dpnK\%%E\TMP_jpg_to_pdf\%%R\*.jpg) else (nconvert -in jpeg -out pdf -c 5 -o res_!fichier!.pdf %%~dpnK\%%E\TMP_jpg_to_pdf\%%R\*.jpg)

echo.

move /y "res_!fichier!.pdf" "%%~dpnK\%%E\Documents_PDF" > nul

Endlocal

)

rmdir /s /q "%%~dpnK\%%E\TMP_jpg_to_pdf"

)

)

explorer /select,"%CD%"

:eof

@echo off

if not exist %windir%\system32\nconvert.exe goto :eof

set source=D:\RECUP_GED

set destination=Documents_PDF

if %source:~0,2% EQU %CD:~0,2% (cd %source% || goto :eof) else (cd /d %source% || goto :eof)

if not exist "%destination%" mkdir "%destination%"

for /f "tokens=*" %%K In ('dir /b /ad "*.*"') do (

for /f "tokens=*" %%E In ('dir /b /ad "%%~dpnK\*.*"') do (

if not exist "%%~dpnK\%%E\TMP_jpg_to_pdf" mkdir "%%~dpnK\%%E\TMP_jpg_to_pdf"

for /f "tokens=1,2,3 delims=_." %%A in ('dir /b /a-d-s-l "%%~dpnK\%%E\*.jpg"') do (

if not exist "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A" mkdir "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A"

copy "%%~dpnK\%%E\%%A_%%B.%%C" "%%~dpnK\%%E\TMP_jpg_to_pdf\%%A" > nul

)

for /f "tokens=*" %%R In ('dir /b /ad "%%~dpnK\%%E\TMP_jpg_to_pdf\*.*"') do (

nconvert -in jpeg -out pdf -multi -c 5 -o recup_%%R.pdf "%%~dpnK\%%E\TMP_jpg_to_pdf\%%R\*.jpg"

echo.

move /y "recup_%%R.pdf" "%destination%" > nul

)

rmdir /s /q "%%~dpnK\%%E\TMP_jpg_to_pdf"

)

)

explorer /select,"%destination%"

:eof