if_file_exist : it's working thankyou all!

["Dominic D'Apice" <dapiced@sympatico.ca>]

Well, it's working good !

-- verifie si un fichier existe
 procedure si_fic_existe     (fichier      : out  ada.text_io.file_type
;
                              mod_fic_ecr  : in   ada.text_io.file_mode
;	 			      nom_fic      : in   string
) is
	begin
	
	ada.text_io.open (fichier,mod_fic_lec,nom_fic);
	ada.text_io.close(fichier);   
	raise sortir_program_principal;		
      exception when ada.text_io.name_error => 	null;

 end si_fic_existe;

-----Original Message-----
From: comp.lang.ada-admin@ada.eu.org
[mailto:comp.lang.ada-admin@ada.eu.org] On Behalf Of SteveD
Sent: 22 septembre, 2002 18:29
To: comp.lang.ada@ada.eu.org
Subject: Re: if file exist

>"Dominic D'Apice" <dapiced@sympatico.ca> wrote in message
>news:mailman.1032687678.1150.comp.lang.ada@ada.eu.org...
>Hello all,
>
>How can i know if a text file exist ?
>
>I mean :
>
>Procedure IF_FILE_EXIST is
>Begin
>.
>end IF_FILE_EXIST;
>

How about something along the lines of:

Pseudo code:

  Procedure IF_FILE_EXIST is
  begin
     open the existing file
     close the file
     return true;
  exception
     when the exception occurs that is associated with a file not
present =>
       return false;
  end IF_FILE_EXIST;

I hope this helps (I hope it works too!)

SteveD

>thank in advance
>Dominic


_______________________________________________
comp.lang.ada mailing list
comp.lang.ada@ada.eu.org
http://ada.eu.org/mailman/listinfo/comp.lang.ada