Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
AW: Batchscript zum automatischen Löschen von Dateien
21. Mai 2019, 22:56
Keine Ausgabe mit:
Code:
@echo off
set RETAINBACKUPS=1
set BACKUPDIR=D:\
if not exist "%BACKUPDIR%" (
echo.
echo "%BACKUPDIR%" existiert nicht.
echo.
pause
goto :EOF
)
rem freien Speicherplatz anzeigen
for /f "tokens=3" %%i in ('dir /-c^|findstr /c:"Bytes frei"') do set tmp=%%i
echo Freier Speicherplatz auf Laufwerk D: %tmp:~0,3% GB
echo.
rem alte Backups loeschen
choice /M "Alte Sicherung(en) loeschen?" /C JN
if %ERRORLEVEL% == 1 goto DEL_OLDEST
if %ERRORLEVEL% == 2 goto DO_BACKUP
:DEL_OlDEST
echo Loesche alte Sicherungen...
echo.
for /F "skip=%RETAINBACKUPS% delims=" %%F IN ('dir /B /AD-S /O-N "%BACKUPDIR%\*-*-* *-*" 2^>NUL') DO (
echo rmdir /S /Q "%BACKUPDIR%\%%F"
)
pause
Michael Ein Teil meines Codes würde euch verunsichern.
|