Res: [delphi-br] Como apagar múltiplos arquivos

Mon, 24 Apr 2006 09:49:08 -0700

Var
  SR: TSearchRec;
  I: Integer;
begin
  I := FindFirst('C:\AcaoDph\_*.dbf', faAnyFile, SR);
  While I = 0 do
  Begin
    If (SR.Attr and faDirectory) <> faDirectory then
    If not DeleteFile('C:\AcaoDph\'+SR.Name) then
    //ShowMessage('Não Consegui Excluir C:\AcaoDph\'+SR.Name);   
    I := FindNext(SR);
  End;
  I := FindFirst('C:\_*.dbf', faAnyFile, SR);
  While I = 0 do
  Begin
    If (SR.Attr and faDirectory) <> faDirectory then
    If not DeleteFile('C:\'+SR.Name) then
    //ShowMessage('Não Consegui Excluir C:\'+SR.Name);
    I := FindNext(SR);
  End;
end;



-------Mensagem original-------

De: conexaoi
Data: 04/20/06 19:27:07
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Como apagar múltiplos arquivos

Eu uso o comando deletefile mas ele apagar somente um arquivo na pasta

como faço para apertar em um botão e limpar uma pasta ex: c:\backup


Qualquer ajuda é bem vinda





--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos








[As partes desta mensagem que não continham texto foram removidas]





--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]


Links do Yahoo! Grupos

Responder a