Consultoría Informática: Programas a medida, Páginas web, Tiendas Online, Posicionamiento en Internet (SEO), Accesibilidad, Usabilidad...

Verificar la existencia de un fichero

WebProgramacion > Recursos sobre informática y tecnología > Programacion > PASCAL > Verificar la existencia de un fichero
Autor: José Luis Álvarez

La siguiente función devuelve true si el fichero que se le pasa por parametro formal a la función no existe y escribe en una linea de pantalla el error 'EL FICHERO NO EXISTE'.

FUNCTION ERROR_DE_FICHEROS(VAR fich1 : text):BOOLEAN;

error : BOOLEAN;

BEGIN
   error:=FALSE;

   WHILE error = FALSE DO
   BEGIN
      ASSIGN(fich1, 'fichero1.txt');
      {$I-}
      RESET(fich1);
      {$I+}
      IF IORESULT <> 0 THEN
         BEGIN
            error:=TRUE;
            BREAK;
         END
      ELSE
         BEGIN
            CLOSE(fich1);
            BREAK;
         END;
   END;

   IF error = TRUE THEN
      BEGIN
         WRITELN('EL FICHERO NO EXISTE');
      END;

   ERROR_DE_FICHEROS:=error;

END; { FIN ERROR_DE_FICHEROS }

Observese que para la reutilización de este código será conveniente modificar la sentencia de asignación del fichero, ASSIGN(fich1, 'fichero1.txt'), cambiando el nombre del fichero de este ejemplo por el nombre de un fichero del cuál el usuario quiera verificar su existencia.