apagar varios arquivos

05/07/2004

0

como procedo para excluir varios arquivos de uma só vez com os caracteres curinga *.*


Ale.riopreto

Ale.riopreto

Responder

Post mais votado

05/07/2004

procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
begin
I := FindFirst(´c:\Delphi\*.*´, faAnyFile, SR);
while I = 0 do begin if (SR.Attr and faDirectory) <> faDirectory then
if not DeleteFile(´c:\Delphi\´ + SR.Name) then ShowMessage(´Não foi possível excluir c:\Delphi\´ + SR.Name);
I := FindNext(SR);
end;
end;

// Os arquivos excluídos com esta rotina não vão para a lixeira!


Reginaldo174

Reginaldo174
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar