AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi DeleteFile -> Alle Dateien mit dem Textinhalt "Test" lösc

DeleteFile -> Alle Dateien mit dem Textinhalt "Test" lösc

Ein Thema von HolgerCW · begonnen am 27. Nov 2009 · letzter Beitrag vom 27. Nov 2009
Antwort Antwort
Seite 1 von 2  1 2   
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#1

DeleteFile -> Alle Dateien mit dem Textinhalt "Test&

  Alt 27. Nov 2009, 16:01
Hallo zusammen,

mit DeleteFile kann man ja Dateien auf der Festplatte löschen.

Wie kann ich nun alle Dateien auf der Festplatte löschen die das Wort "Test" beinhalten ?

Gruss

Holger
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: DeleteFile -> Alle Dateien mit dem Textinhalt "T

  Alt 27. Nov 2009, 16:02
Meinst Du im Dateinamen oder im Inhalt?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#3

Re: DeleteFile -> Alle Dateien mit dem Textinhalt "T

  Alt 27. Nov 2009, 16:03
im Dateinamen
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: DeleteFile -> Alle Dateien mit dem Textinhalt "T

  Alt 27. Nov 2009, 16:04
Dann such doch mit FindFirst/FindNext nach *Test*
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#5

Re: DeleteFile -> Alle Dateien mit dem Textinhalt "T

  Alt 27. Nov 2009, 16:10
Wie mache ich das denn genau mit FindFirst/FindNext ?

Es gibt z.b. drei Dateien mit den Dateinamen:

Hallo_Test.txt
Test_it.jpg
Text.bmp

Es müssten nun die ersten beiden Dateien gelöscht werden ?

Gruss

Holger
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: DeleteFile -> Alle Dateien mit dem Textinhalt "T

  Alt 27. Nov 2009, 16:15
Such mal zum Nachlesen nach FindAllFilesFindAllFiles, ich bin gerade zu faul zum Code schreiben
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#7

Re: DeleteFile -> Alle Dateien mit dem Textinhalt "T

  Alt 27. Nov 2009, 16:26
Danke, habe mir nun folgenden Code gebastelt:

Delphi-Quellcode:
if FindFirst(copy(Application.ExeName,1, length(Application.ExeName)-10) + 'PDF-Dateien\*.*',faAnyFile, searchResult) = 0 then
begin

 repeat

  If (pos('Test', searchResult.Name) <> 0) AND (searchResult.Size > 0) then
   DeleteFile(copy(Application.ExeName,1, length(Application.ExeName)-10) + 'PDF-Dateien\' + searchResult.Name);

  until FindNext(searchResult) <> 0;
    
  FindClose(searchResult);

end;
Gruss

Holger
  Mit Zitat antworten Zitat
Andreas L.
(Gast)

n/a Beiträge
 
#8

Re: DeleteFile -> Alle Dateien mit dem Textinhalt "T

  Alt 27. Nov 2009, 16:28
Zitat von DeddyH:
Such mal zum Nachlesen nach FindAllFilesFindAllFiles, ich bin gerade zu faul zum Code schreiben
Damit wird das ganz einfach:
Delphi-Quellcode:
var
  Files: TStrings;
  i: integer;
begin
  Files := TStringList.Create;
  try
    FindAllFiles(Files, 'C:\', '*.*', True);
    for i := Files.Count -1 downto 0 do
    begin
      if pos('Test', Files[i]) > 0 then
        DeleteFile(Files[i]);
    end;
  finally
    Files.Free;
  end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#9

Re: DeleteFile -> Alle Dateien mit dem Textinhalt "T

  Alt 27. Nov 2009, 16:30
Wieso mit *.* suchen, um dann *Test* wieder rauszufiltern?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Andreas L.
(Gast)

n/a Beiträge
 
#10

Re: DeleteFile -> Alle Dateien mit dem Textinhalt "T

  Alt 27. Nov 2009, 16:34
Zitat von DeddyH:
Wieso mit *.* suchen, um dann *Test* wieder rauszufiltern?
War mir nicht sicher ob derartige Wildcards funktionieren:
FindAllFiles(Files, 'C:\', '*test*.*', True);
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 20:31 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