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]
>
>
> ------------------------------------
>
>
