AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein ein Script zum Löschen der Dateien
Thema durchsuchen
Ansicht
Themen-Optionen

ein Script zum Löschen der Dateien

Ein Thema von sniper_w · begonnen am 13. Okt 2005 · letzter Beitrag vom 13. Okt 2005
Antwort Antwort
Benutzerbild von sniper_w
sniper_w

Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
 
Delphi 6 Enterprise
 
#1

ein Script zum Löschen der Dateien

  Alt 13. Okt 2005, 16:54
Ich brauche ein Skript (*.cmd), das alle *.~inc und *.~pas Löscht, auch im Unterordnern.
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
  Mit Zitat antworten Zitat
marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: ein Script zum Löschen der Dateien

  Alt 13. Okt 2005, 17:08
Code:
del /s /q *.~inc *.~pas
Grüße vom marabu
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: ein Script zum Löschen der Dateien

  Alt 13. Okt 2005, 17:43
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');
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von sniper_w
sniper_w

Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
 
Delphi 6 Enterprise
 
#4

Re: ein Script zum Löschen der Dateien

  Alt 13. Okt 2005, 19:24
Danke.
Katura Haris
Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
  Mit Zitat antworten Zitat
Benutzerbild von Duffy
Duffy

Registriert seit: 19. Mär 2003
Ort: Wuppertal
835 Beiträge
 
Delphi 3 Standard
 
#5

Re: ein Script zum Löschen der Dateien

  Alt 13. Okt 2005, 19:26
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=
Angehängte Dateien
Dateityp: zip erdelprj_646.zip (463 Bytes, 3x aufgerufen)
Künftige Generationen wollen ihre Fehler selber machen.
Jedes Programm wird nie das können, was Du wirklich brauchst.
Das Gegenteil von gut ist gut gemeint
-----
  Mit Zitat antworten Zitat
Benutzerbild von glkgereon
glkgereon

Registriert seit: 16. Mär 2004
2.287 Beiträge
 
#6

Re: ein Script zum Löschen der Dateien

  Alt 13. Okt 2005, 19:57
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
»Unlösbare Probleme sind in der Regel schwierig...«
  Mit Zitat antworten Zitat
Benutzerbild von Duffy
Duffy

Registriert seit: 19. Mär 2003
Ort: Wuppertal
835 Beiträge
 
Delphi 3 Standard
 
#7

Re: ein Script zum Löschen der Dateien

  Alt 13. Okt 2005, 20:06
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
Künftige Generationen wollen ihre Fehler selber machen.
Jedes Programm wird nie das können, was Du wirklich brauchst.
Das Gegenteil von gut ist gut gemeint
-----
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:19 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz