Inhalt eines ordners löschen...

[glkgereon]

hi
ich will den inhalt eines ordners löschen, um genau zu sein den recent ordner

erstma guck ich ob ich einen benutzernamen brauche (Win2000) um den ordner zu finden, und setz den gegebenenfalls ein

dann fang ich an zu suchen und eine datei nach der anderen per findfirst/findnext/deletefile zu löschen

doch irgendwas funktioniert da nicht

hier der code:

Delphi-Quellcode:

if CheckBox1.Checked                            //Recent
then  begin
      temp:=pos(recentdir,'%username%');
      if temp<>-1                                       //wenn username ersetzt werden muss
      then  begin
            delete(recentdir,temp,10);                  //platzhalter löschen
            insert(LabeledEdit1.Text, recentdir, temp); //name einfügen
            end;
      findfirst(recentdir+'\*.*',faAnyFile,ergebnis);   //ersten suchen
      repeat
      deleteFile(ergebnis.Name);                        //löschen
      until FindNext(Ergebnis)<>0;                      //nächsten suchen bis keiner mehr da ist
      findclose(Ergebnis);
      end;

[S2B]

Schau dir mal das an!

[glkgereon]

sieht gut aus....

werds einbauen...

thx

[glkgereon]

Es funktioniert!!!
danke
thx
...