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