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;