rename

(procedimiento)
Lenguaje: Pascal   (Versión: Turbo Pascal)

Renombra un fichero externo

Declaración: procedure Rename(var F; NuevoNombre);

Detalles:
F es una variable de cualquier tipo de archivo, que se haya asociado a un fichero físico usando "Assign". El NuevoNombre es una cadena de texto. Se cambia el nombre del fichero físico asociado a F, para que pase a ser NuevoNombre.

Con la directiva {$I-} , IOResult devuelve 0 si la operación se ha realizado correctamente, o bien otro número en caso contrario.


Ejemplo:

var
  fich:  file;
  nombre1, nombre2: string;
begin
  { Pedir nombres }
  Write('Nombre inicial del fichero? ');
  Readln(nombre1);
  Write('Nuevo nombre? ');
  Readln(nombre2);
  { Renombrar... si existe }
  Assign(fich, nombre1);
  {$I-}
  Reset(rich);
  {$I+}
  if IOResult <> 0 then
    Writeln('No existe el fichero ', nombre1)
 else
  begin
    Close(fich);
    Rename(fich, nombre2);
  end;
end.

Órdenes relacionadas:   erase  

  Volver al índice de la referencia o al apartado de Pascal