Dicas Delphi – Deletando arquivos de um diretório utilizando caracter curinga ‘*’

procedure TForm1.SpeedButton1.Click(Sender: TObject);
var
SearchRec: TSearchRec;
Result: Integer;
begin

Result:=FindFirst(‘c:\Temp\*.*’, faAnyFile, SearchRec);

while result=0 do
begin
DeleteFile(‘c:\Temp\’+SearchRec.Name);
Result:=FindNext(SearchRec);
end;
end;

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

w

Conectando a %s