Valeu pessoal, foram várias dicas boas. 'Brigadão' a todos !!!
Abraços Sandro Ricardo ----- Original Message ----- From: Moacir - GMail To: [email protected] Sent: Friday, June 06, 2008 3:49 PM Subject: Re: [delphi-br] Deletar .DCU / .~pas e tc... Sandro, Acredito que esta função possa ser o pontapé inicial para que possas fazer o que queres: Function LocalizaArquivos(FromDir : String='' ; Mascara : String='' ; excluir : String=''): TStrings; var SearchRec: TSearchRec; SearchResult: integer; sArquivos : TStrings; sExtensao : String; begin If excluir<>'' then excluir:=UpperCase(excluir); if (FromDir<>'') and (FromDir[Length(FromDir)] <> '\') then FromDir:= FromDir + '\'; SearchResult := FindFirst(FromDir + Mascara, faAnyFile,SearchRec); sArquivos :=TStringList.Create; sArquivos.Clear; while (SearchResult = 0) do begin if (SearchRec.Attr and faDirectory) = faDirectory then //-- Faz Nada !! else begin If excluir<>'' then Begin sExtensao:=StringReplace(ExtractFileExt(SearchRec.Name),'.','',[rfReplaceAll]); If Pos(UpperCase(sExtensao),excluir)=0 then sArquivos.Add(SearchRec.Name); end else sArquivos.Add(SearchRec.Name); end; SearchResult := FindNext(SearchRec); end; SysUtils.FindClose(SearchRec); Result:=sArquivos; end; Os parâmetros são: FromDir = Diretorio a ser pesquisado ( C:\teste\) Mascara = Os tipos de arquivos que queres localizar (*.dcu) Excluir = Tipos de arquivos a serem excluidos da pesquisa ('.pas,.exe,.dfm') [ ]´s Moacir Sandro Ricardo escreveu: > 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]
