Teste l'existence d'un fichier sur le disque

par **Napoléon** Mer 14 Nov - 0:13

Solution de l'exercice n°11 page 71 du livre scolaire: Algorithmique et Programmation (section Sciences de l'Informatique)

Ecrivez une fonction nommée Existe qui permet de détecter la présence ou non d'un fichier de données sur une unité d'enregistrement. Utiliser les directives de compilation pour gérer le contrôle des entrées/sorties.

Code:: program ex11_page70; uses wincrt; {Fonction: teste si un fichier existe ou non} function fichier_existe(nomFichier: string):boolean; var f: text; begin assign(f, nomFichier); {$I-} reset(f); fichier_existe:= IOResult=0; {$I+} end; {Programme principal} VAR nomFichier: string; BEGIN write('Donner le nom complet d''un fichier: '); readln(nomFichier); if (fichier_existe(nomFichier)) then write('Le fichier existe!') else write('Fichier n''existe pas!'); END.