[Delphi] Delete Files

Jak programowo usunąć wszystkie pliki jednocześnie z jakiegos katalogu? [glowa]

to bylo w faq

usun katalog i stworz katalog z ta sama nazwa :D

to bylo w faq

Wiem ze bylo ale o usuUUUUwaniu pojedynczego pliku a nie o wyczyszczeniu katelogu. :-P

Wiem ze bylo ale o usuUUUUwaniu pojedynczego pliku a nie o wyczyszczeniu katelogu. :-P

Wyszukuj wszystkie pliki w katalogu (FAQ) i usuń po znalezieniu plik ;]

Wiem ze bylo ale o usuUUUUwaniu pojedynczego pliku a nie o wyczyszczeniu katelogu. :-P

Wyszukuj wszystkie pliki w katalogu (FAQ) i usuń po znalezieniu plik ;]

wiem ze to we FAQu bylo ale teraz brak mi czasu na jego przegladanie:)

Wiem ze bylo ale o usuUUUUwaniu pojedynczego pliku a nie o wyczyszczeniu katelogu. :-P

Wyszukuj wszystkie pliki w katalogu (FAQ) i usuń po znalezieniu plik ;]

Ale ja nie chce usuwac pojedynczego pliku tylko wszystkie z danego katalogu np wszystkie pliki z katalogu COOKIES(ale tak ze wszystkie sa usuwane jednoczesnie)

function IsSlash(const sText: String) : String;
begin
{ sprawdzenie, czy na koncu jest znak \ }
if sText[Length(sText)] '' then
Result := sText + '' else Result := sText;
end;

procedure TMainForm.Button1Click(Sender: TObject);
var
SR: TSearchRec;
Found : Integer;
begin
Found := FindFirst(IsSlash(Edit1.Text) + '.', faAnyFile, SR);
while (Found = 0) do
begin
DeleteFile(IsSlash(Edit1.Text) + SR.Name);
Found := FindNext(SR); // szukaj dalej
end;
FindClose(SR);
end;

Wielkie dzieki za pomoc mirekpil!!! [browar]

[browar]
Drobiazg, czy zauważyłeś godzinę mojego i twojego posta(dobrze że dzień jest różny).