Apaga arquivos usando mascaras tipo: c:Temp*.zip, c:Temp*.*

Procedure ZapFiles(vMasc:String);
//Requer o Path dos arquivos a serem deletados
Var Dir : TsearchRec;
Erro: Integer;
Begin
  Erro := FindFirst(vMasc,faArchive,Dir);
  While Erro = 0 do Begin
    DeleteFile( ExtractFilePAth(vMasc)+Dir.Name );
    Erro := FindNext(Dir);
  End;
  FindClose(Dir);
End;    

Autor : desconhecido

Voltar