Código Delphi [-] var Path: string; begin Path := 'C:\Archivo.chr'; RenameFile(Path, ChangeFileExt(Path, '.txt')) end;
var Path: string; begin Path := 'C:\Archivo.chr'; RenameFile(Path, ChangeFileExt(Path, '.txt')) end;