Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi DeleteFiles + FindNext (https://www.delphipraxis.net/147484-deletefiles-findnext.html)

Klaus01 9. Feb 2010 22:07

Re: DeleteFiles + FindNext
 
.. ohne das *.TXT darin sollte es funktionieren.

Grüße
Klaus

Luckie 9. Feb 2010 22:08

Re: DeleteFiles + FindNext
 
Nicht raten! Nachdenken!

Was kommt dabei wohl raus:
Delphi-Quellcode:
DeleteFile('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT' +SearchRec.Name)
Was steht in SearchRec.name drin? Und wie sieht deine zusammengebastelte Zeichenkette dann aus?


Zitat:

Zitat von Klaus01
.. ohne das *.TXT darin sollte es funktionieren.

KLAUS!!! Bist du wohl ruhig?

Ghostleader 9. Feb 2010 22:10

Re: DeleteFiles + FindNext
 
Delphi-Quellcode:

     r := FindFirst('C:\voctester_tmp\Vocabularies\Deutsch\*.TXT', faAnyFile,SearchRec);
     while r = 0 do
      begin
       MeDelVoks.Lines.Add(SearchRec.Name);
       DeleteFile(SearchRec.Name+'C:\voctester_tmp\Vocabularies\Deutsch\');


     {Error Code?}
          if not DeleteFile(SearchRec.Name) then
          ShowMessage(SysErrorMessage(GetLastError));
Klappt aber nicht.

Danke euch allen ich suche morgen weiter ;)

@Luckie:
Danke für deine Geduld und deine Strategie ;D

MaToBe 9. Feb 2010 22:12

Re: DeleteFiles + FindNext
 
okay nochmal:

SearchRec.Name ist der Name der Datei, die zum löschen gefunden wurde, und zwar ohne Pfad davor.

=> Schlussfolgerung: Du brauchst die Angabe des Pfadest und danach dann noch den Namen der Datei.

Klaus01 9. Feb 2010 22:12

Re: DeleteFiles + FindNext
 
wie sind denn Dateien zu finden:

Pfad + Dateiname
oder
Dateiname + Pfad ?

So spät ist es in Deutschland doch noch nicht.

Grüße
Klaus

Luckie 9. Feb 2010 22:14

Re: DeleteFiles + FindNext
 
Zitat:

Zitat von Ghostleader
Delphi-Quellcode:
DeleteFile(SearchRec.Name+'C:\voctester_tmp\Vocabularies\Deutsch\');
Klappt aber nicht.

So langsam tut es weh. Wo steht denn der Dateiname? Am Anfang vom Pfad oder am Ende vom Pfad?

Zitat:

Danke euch allen ich suche morgen weiter ;)
nix da. das machen wir jetzt fertig.

Zitat:

@Luckie:
Danke für deine Geduld und deine Strategie ;D
Du strapazierst sie aber auch zu Genüge.

Ghostleader 9. Feb 2010 22:30

Re: DeleteFiles + FindNext
 
Ist ja in Ordnung ich ärgere mich schon über meine eigene Dummheit! Ich hab bis zum Ende nicht verstanden das in SearchRec.Name der Name der Datei + .TXT steht. Und dann musste ich schnell weg sodass ich nicht mal mehr den Pfad und den Namen in eine passende Reihenfolge geschrieben hab O.o! Ich hoffe ich hab eurer Geduld nicht allzusehr geschadet ;D Mfg Ghost

Luckie 9. Feb 2010 22:32

Re: DeleteFiles + FindNext
 
Hast du es jetzt hinbekommen?

Ghostleader 9. Feb 2010 22:39

Re: DeleteFiles + FindNext
 
Ich bin im Moment nicht in der Lage es zu probieren aber in der Theorie habe ich es so verstanden: DeleteFile('C:\'+SearchRec.Name) Das könnte ergeben: C:\Hallo.TXT! Edit: In SearchRec.Name steht der Name der Datei und die Endung. Mit GetLastError bekommt man den Wert von DeleteFile (True/False) zurück.

MaToBe 9. Feb 2010 22:39

Re: DeleteFiles + FindNext
 
richtig

[OT]
fands sau lustig wie sich zeitweise 3 personen drum gekloppt ham's dem TE richtig beizubringen und die Antworten im Sekundentakt rausgehaun ham ;D
[/OT]


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:19 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz