Discussion :

[pierrot2908]

Bonjour à tous,
Existe il en ADA une fonction qui test l'existence d'un fichier.
en fait je fais une procédure de chargement automatique et je veux vérifié l'existence du fichier avant de charger.
Merci

[Invité]

Avec Gnat.Os_Lib il existe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
function Is_Regular_File(Name : String) return boolean;

qui retourne "TRUE" si le fichier est un fichier régulié, "FALSE" si non.

Si non une petite function du genre ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
function Exist (Name : in String) return boolean is
   File : File_Type;
begin
   open(File, In_File, Name);
   Close(File);
   return True;
exception
   when Name_Error =>
        return False;
   When others =>
        raise;
end Exist;

[pierrot2908]

merci

[Lowelace]

Bonjour,

Dans GNAT.IO_Aux, il y a aussi la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   function File_Exists (Name : String) return Boolean;

[jc-miranda]

Si jamais tu fais du 2005, le standard definit le package Ada.Directories qui a une fonction pour tester l'existence d'un fichier ou d'un répertoire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
function Exists (Name : in String) return Boolean;

A+