1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
@echo off
echo Cet outil va supprimer les fichiers obsoletes jusqu'a une annee determinee
set /p date= Entrez la date jusqu'a laquelle vous voulez supprimer les fichiers :
echo La date souhaitée est %date%
set vrRepCible=C:\SIRPAC\HISTO
for /r "%vrRepCible%\" %%i in (*.*) do set VrNamFch=%%~pnxi& set VrDatFch=%%~ti& call :suppression
goto finsuppression
:suppression
if %VrDatFch:~6,4% leq %date% del "%VrNamFch%" /q /f
goto :eof
:finsuppression
:fin
echo.
echo Fin du programme, appuyez sur une touche pour quitter l'application
Pause > NUL |