Deletar o conteúdo de uma pasta

[romn...@ig.com.br]

Bom dia.
Como faço para excluir todo o conteúdo de uma pasta(sem deletar a
pasta).
Vlw

[Leonardo (Tectrilha)]

Você quer fazer isso de dentro do Delphi ?

[Gustavo (Tectrilha)]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Caminho: string;
MySearch: TSearchRec;
begin
Caminho := Edit1.Text; //passe o diretorio no edit1
FindFirst(Caminho + '\*.*', faAnyFile+faReadOnly, MySearch);
DeleteFile(Caminho + '\' + MySearch.Name);
while FindNext(MySearch) = 0 do
DeleteFile(Caminho + '\' + MySearch.Name);
FindClose(MySearch);
end;

Procure entender no help do Delphi sobre as funções FindFirst,
FindNext, FindClose e também sobre o Type TSearchRec.

Gustavo Gianordoli
Tectrilha Software