Cambiar extensiones
 

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

Hola gdlrinfo.

Código Delphi [-]
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:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeExt('C:\CARPETA', 'DOC');
end;

Saludos :)

Muchas Gracias
 

[quote=ecfisa;483680]

Muchas gracias ecfisa funciona genial !!! gracias