Ola Sandro,
Essa procedure lista os arquivos de um diretório de acordo com a mascara
informada e te retorna em um stringlist.
ListarArquivos(aMask: string; aSt: TStringList);
var
sr: TSearchRec;
begin
aSt.Clear;
if FindFirst(aMask, faAnyFile - faDirectory, sr) = 0 then
begin
try
repeat
aSt.Add(sr.Name);
until FindNext(sr) <> 0;
finally
FindClose(sr);
end;
end;
end
[]'s
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sandro
Ricardo
Enviada em: sexta-feira, 6 de junho de 2008 15:42
Para: Undisclosed-Recipient:;
Assunto: [delphi-br] Deletar .DCU / .~pas e tc...
Prioridade: Alta
Olá amigos Delphianos,
Queria pedir uma ajuda, que me indicassem o 'caminho das pedras', 'pelo que
procurar', que aí eu corro atrás.
O problema é o seguinte: para mandar o projeto para o controle de versões, é
exigido que eu 'delete' todos os arquivos . dcu os .exe e todos os de
backup(.~pas , .~dfm...).
Sei que posso salvar em pastas diferentes, mas são muitos projetos e muitas
subpastas já feitos.
Pensei em criar um programa em que eu desse a pasta inicial e ele fosse
verificando as pastas abaixo e deletando esses arquivos.
Agradeço
Abraços
Sandro Ricardo
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
