[delphi] Usuwanei plików z folderu

[karpiu_haker]

Witam mam takei problem jaki kod wpisac aby usunac wszystkie pliki w jakims folderze
ale zeby folder pozostal. Jak to zrobic w przypadku Cocuments and Settingsnazwausera jesli tam znajduje sei folder z pilkami.

 

[FDJ]

a [prefiks] z nazwa ?? w czym chcesz to zrobic ?c++ delphi perl ????????

 

[karpiu_haker]

Zapomnialem dopisac

Chodzi mi o delphi

 

[damian0170]

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
{ szukaj plikow ( wszystkiech ) w danym kataogu }
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;

 

[karpiu_haker]

dzieki

a jak zrobic zeby usunely sie tez te podkatalogi wszystkei w tym folderze

 

[EloWaclaw]

Bardzo Łatwo !

Prymitywny sposob ale dziala. W delphi 7 robie tak:
1. Z zakladki Win 3.1 dodaje komponent FileListBox (załóżmy że o nazwie "fl1")
2. fl1.Directory:='x:StadKasujPliki';
3. liste plikow masz w fl1.Items.Strings
4. Petla for w banalny sposob kasujesz plik po pliku z listy.

A jesli chodzi o podkatalogi podobny manewr możesz wykonać z DirectoryListBox.