Carlos, Vamos por partes:
1) Para localizar os arquivos desejados - Abaixo uma função que faz isto para vc //------------------------------------------------- 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; //------------------------------------------------- Ex.: de uso: procedure TForm1.btnOkClick(Sender: TObject); var MeuArquivo : String; i : Integer; aFotos : tStrings; begin aFotos := LocalizaArquivos('c:\MinhasFotos\','000.*.jpg'); For i:=0 to aFotos.count-1 do begin // 2) Para renomear os arquivos: MeuArquivo := StringReplace(ChangeFileExt(aFotos[i],'') ,'.','',[rfReplaceAll])+'.jpg'; RenameFile(aFotos[i], MeuArquivo); end; end; Não testei mas acho que deve funfar.. Boa Sorte !! Moacir Carlos escreveu: > Senhores, boa tarde! > Solicito, dentro das possibilidades, um auxílio para solucionar este > problema: > - tenho uma pasta dentro do disco Ex: c:\pasta > dentro desta pasta, existem várias arquivos de imagem, e todos com o > nome neste modelo 000.000.000.LLLL.jpg > O que acontece; > Preciso percorrer estes arquivos, e renomea-los sem os pontos e com a > extensão '.jpg'; > Nunca fiz este tipo de procedimento, e não sei como faze-lo e não > consegui achar nada na grande rede que pudesse me auxiliar! > Agradeço atenciosamente a atenção e ajuda de todos! > Fraterno abraço, > Carlos > > > ------------------------------------ > >