Bonjour,

Je viens vers vous car je suis bloqué, ce script fonctionne bien sous Windows 10 Pro mais ne fonctionne pas sous Windows Serveur 2012 R2.
Le blocage ce fait après le 1er "for" la console reste ouverte(un bouclage) sous 2012 alors que Windows 10 il se termine.

- Le principe du scripte doit aller dans le dossier "C:\E_DOC\DOC_INOTE_A_REPRENDRE\PDF" prendre x fichier (ici pour mes tests 4).
- Copier dans "C:\DESTINATION" ces x fichier (ici pour mes tests 4).
- Puis retournée dans "C:\E_DOC\DOC_INOTE_A_REPRENDRE\PDF" prendre x fichier (ici pour mes tests 4 pour les déplacer dans "C:\E_DOC\DOC_INOTE_A_REPRENDRE\PDF\REPRIS".

Si quelqu'un a une solution car je ne voit ou je me suis tromper et pourquoi cela bloque.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
@echo off
rem - Le dossier Source ou ce trouve les fichiers
set SourceDir=C:\E_DOC\DOC_INOTE_A_REPRENDRE\PDF
rem - Le dossier destination
set DestDir=C:\DESTINATION
rem - Le dossier destination de control
set DestDir2=C:\E_DOC\DOC_INOTE_A_REPRENDRE\PDF\REPRIS
rem - Le nombre de fichier que l'on veux copier
set /A nb_max_files=4

rem - Déplacer les fichiers de SourceDir avec un type de fichier ici les .pdf
set /A nb_files_move=0
set /A nb_files_xcopy=0
rem - xcopy copie les fichier dans un dossier
for %%f in ("%SourceDir%\*.pdf") do (call :xcopy_one_file "%%f")
rem - move coupe et colle dans un dossier
for %%g in ("%SourceDir%\*.pdf") do (call :move_one_file "%%g")
goto :eof

:xcopy_one_file
rem - Routine déplaçant un fichier si maximum non atteint
rem - %1 contient le fichier à déplacer
if /I %nb_files_xcopy% GEQ %nb_max_files% goto :eof
COPY  /Y "%~1" "%DestDir%" 1>nul 2>nul
set /A nb_files_xcopy+=1
goto :eof

:move_one_file
rem - Routine coupe et colle un fichier si maximum non atteint
rem - %1 contient le fichier à déplacer
if /I %nb_files_move% GEQ %nb_max_files% goto :eof
move /Y "%~1" "%DestDir2%" 1>nul 2>nul
set /A nb_files_move+=1
goto :eof

Cordialement,
Merci