Cambiar extensiones

[gdlrinfo]

Hola amigos tengo una duda como puedo hacer para en un directorio si existen archivos y si no existen obviamente no haga nada que a todos los archivos le cambie la extensión por ejemplo cualquier archivo que haya la extensión cambie a .doc. Sin importar si el archivo después funciona desde muchas gracias como siempre Saludos

[ecfisa]

Hola gdlrinfo.


procedure ChangeExt(Folder: string; const NewExt: string);
var
sr: TSearchRec;
begin
Folder:= IncludeTrailingPathDelimiter(Folder);
if FindFirst(Folder+'*.*', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Name <> '.')and(sr.Name <> '..') and
(sr.Attr and faDirectory <> faDirectory) then
begin
RenameFile(Folder + sr.Name,
Folder + ChangeFileExt(ExtractFileName(sr.Name), '') + '.' + NewExt);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
end;


Ejemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeExt('C:\CARPETA', 'DOC');
end;



Saludos :)

[gdlrinfo]

[QUOTE=ecfisa;483680]

Muchas gracias ecfisa funciona genial !!! gracias