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).
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!