[BATCH] : Supprimer fichier dans sous-dossier s'il existe...

Bonjour,

Ce n'est donc pas du VBA mais du Batch.

On commence par enlever les espaces intempestifs sans quoi on va se faire planter, renommer Devis_en_Cours et par exemple 001-020.

J'ai placé le dossier Devis_en_Cours à la racine de E:\ et pour le test créé 2 sous-dossiers 001-020 et 002-030 dont le deuxième ne contient rien et le premier
Devis signé.jpg et Devis.pdf, j'ai renouvelé l'expérience en coupant collant le pdf dans le deuxième dossier.

J'ai rajouté un contrôle pour les dossiers OK sans quoi le script s'exécute sans aucun retour si tout est bon.

 

@echo off
CHCP 65001 >NUL
echo.
FOR /F %%a in ('dir /a:d /b /s "E:\Devis_en_Cours"') DO SET DOSSIER=%%a & CALL :PROCESS1
GOTO EOF

:PROCESS1
SET DOSSIER=%DOSSIER:~0,-1%
IF EXIST "%DOSSIER%\Devis*" ECHO %DOSSIER% OK
IF EXIST "%DOSSIER%\Devis-signé.*" GOTO TEST
IF EXIST "%DOSSIER%\Devis.pdf" GOTO SORTIE
:ABSENT
echo [101;93m IL N'Y A PAS DE DEVIS DANS LE DOSSIER %DOSSIER% [0m
pause
GOTO SORTIE
:TEST
IF EXIST "%DOSSIER%\Devis.pdf" DEL "%DOSSIER%\Devis.pdf"
:SORTIE
exit /b

:EOF
pause