Buscar

Apagar arquivos temporários via delphi – qualquer nome e extensão

Código

Use TSearchRec, pois para usar DeleteFile deve ser passado o nome do arquivo e não uma máscara.

na uses deve inserir SysUtils, se não tiver

var
SearchRec : TSearchRec;
begin
try
  FindFirst('C:TabelasDBF_QSQL*.*', faAnyFile, SearchRec);

  repeat
   DeleteFile('C:TabelasDBF' + SearchRec.name);
  until FindNext(SearchRec) <> 0;
finally
  FindClose(SearchRec);
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Arquivos
Adicionada dia: 03/02/05
Por: Marcos Rieper
Visualizada: 10044 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009