ein Script zum Löschen der Dateien

[sniper_w]

Ich brauche ein Skript (*.cmd), das alle *.~inc und *.~pas Löscht, auch im Unterordnern.

[marabu]

Code:

del /s /q *.~inc *.~pas

Grüße vom marabu

[SirThornberry]

und falls du das ganze mit Delphi machen willst dann so

Delphi-Quellcode:

procedure DeleteFiles(FilenameMask: String);
var LRec: TSearchRec;
    LPath: String;
begin
  if FindFirst(FilenameMask, faAnyFile, LRec) = 0 then
  begin
    LPath := ExtractFilePath(FilenameMask);
    repeat
      DeleteFile(LPath + LRec.Name);
    until FindNext(LRec) <> 0;
  end;
  FindClose(LRec);
end;
[...]
DeleteFiles('*.~pas');
DeleteFiles('*.~inc');

[sniper_w]

Danke.

[Duffy]

Hallo sniper_w,
ich bereinige meine Verzeichnisse mit folgendem Script ...

Code:

@ ECHO OFF
SET ERASE_ANY=No
ECHO *----------------------------------------------------------------------*
:CHECK-~INC-FILES
IF EXIST *.~INC GOTO ERASE_~INC_FILES
GOTO CHECK-~PAS-FILES
:ERASE_~INC_FILES
ECHO * Delete ~INC-Files...                                                 *
ERASE *.~INC
SET ERASE_ANY=Yes
REM *-----------------------------------------------------------------------*
:CHECK-~PAS-FILES
IF EXIST *.~PAS GOTO ERASE_~PAS_FILES
GOTO CHECK-DCU-FILES
:ERASE_~PAS_FILES
ECHO * Delete ~PAS-Files...                                                 *
ERASE *.~PAS
SET ERASE_ANY=Yes
REM *-----------------------------------------------------------------------*
:CHECK-DCU-FILES
IF EXIST *.DCU GOTO ERASE_DCU_FILES
GOTO CHECK-DDP-FILES
:ERASE_DCU_FILES
ECHO * Delete DCU-Files...                                                  *
ERASE *.DCU
SET ERASE_ANY=Yes
REM *-----------------------------------------------------------------------*
:CHECK-DDP-FILES
IF EXIST *.DDP GOTO ERASE_DDP_FILES
GOTO CHECK-EXE-FILES
:ERASE_DDP_FILES
ECHO * Delete DDP-Files...                                                  *
ERASE *.DDP
SET ERASE_ANY=Yes
REM *-----------------------------------------------------------------------*
:CHECK-EXE-FILES
IF EXIST *.EXE GOTO ERASE_EXE_FILES
GOTO CHECK-ERASY-ANY
:ERASE_EXE_FILES
ECHO * Delete EXE-Files...                                                  *
ERASE *.EXE
SET ERASE_ANY=Yes
REM *-----------------------------------------------------------------------*
:CHECK-DLL-FILES
IF EXIST *.EXE GOTO ERASE_DLL_FILES
GOTO CHECK-ERASY-ANY
:ERASE_DLL_FILES
ECHO * Delete DLL-Files...                                                  *
ERASE *.DLL
SET ERASE_ANY=Yes
REM *-----------------------------------------------------------------------*
:CHECK-ERASY-ANY
IF %ERASE_ANY%==No GOTO NOTHING_TO_DO
GOTO ENDE
:NOTHING_TO_DO
ECHO * Nothing to do...                                                     *
:ENDE
ECHO *----------------------------------------------------------------------*
SET ERASE_ANY=

[glkgereon]

Sorry, aber so eine unnötog Lange und unübersichtliche Batch-Datei und dann noch nichtmal ein Exit am ende....

dlls sollte man vorerst auskommentieren. im zweifel will es derjenige nicht, und wenn, dann muss ers eben per hand aktivieren...

Zitat:

@ ECHO OFF
ERASE *.~*
ERASE *.DCU
ERASE *.DDP
ERASE *.EXE
REM ERASE *.DLL
EXIT

[Duffy]

Hallo glkgereon,
jeder wie er es mag.

Zitat von glkgereon:

dlls sollte man vorerst auskommentieren. im zweifel will es derjenige nicht, und wenn, dann muss ers eben per hand aktivieren...

DLL's werden in dem Script nur gelöscht, wenn auch die EXE gelöscht wird ... wie ich sagte, so wie jeder mag.

bye
CLaus