Ir ao topo

Tecnobyte

Logomarca da Tecnobyte
Contato por WhatsApp

WhatsApp

(69) 3421-6756

Contato por Telefone

(69) 3421-6756

(69) 3421-6757

Enviar mensagem

Enviar

mensagem

Contato por Facebook

Facebook

Vídeos

Vídeos

Atendimento de segunda a sexta, das 08h00 às 19h00 (horário de Brasília).

Banner

Delphi - Arquivos, Diretórios e Discos

Como excluir arquivos usando máscaras/curingas (*.tmp)?

O uso indevido desta dica pode causar perda irreversível de dados.

Veja como é fácil excluir os arquivos de um diretório, filtrando-os através de uma máscara (curinga).

  • Inclua na seção uses: SysUtils, Dialogs
  • Coloque um botão no formulário.
  • Programe o evento OnClick deste botão como segue.
procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  Diretorio, Arquivo: string;
begin
  Diretorio := 'C:\Diretorio\';
  if FindFirst(Diretorio + '*.exe', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr and faDirectory) <> faDirectory then
      begin
        Arquivo := Diretorio + SR.Name;
        if DeleteFile(Arquivo) then
          ShowMessage('Arquivo excluído:'#13 + Arquivo)
        else
          ShowMessage(SysErrorMessage(GetLastError) + #13#13 + Arquivo);
      end;
    until FindNext(SR) <> 0;
  end;
end;

O conteúdo desta página pode ajudar alguém? Compartilhe!