Existence d'un fichier

comment tester si un fichier existe sur un disque dur en pascal

Bonjour et bienvenue

Une petite recherche dans la FAQ te donnera satisfaction. ;)

Il y a une méthode, pas super propre mais bon...
Tu éssai d'ouvrir le fichier en lecture, si il y a pas d'erreur c'est qu'il existe;

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

program test;   uses crt; var f : text; {fichier de type texte}   begin assign(f,c:\test;txt); {$i-} reset(f); {$i+} If IOResult<> 0 then write('fichier inexistant'); end.

---

le seul problème c'est que si il y a une autre erreur comme par exemple, que le fichier est déjà ouvert, il va te le detecter un tent que fichier inexistant

Juste un oubli

Code:

---

1 2	Assign(f,'c:\test.txt');

---

Salut,

Citation:

---

Envoyé par titeeee

Il y a une méthode, pas super propre mais bon...
Tu essaie d'ouvrir le fichier en lecture, si il n'y a pas d'erreur c'est qu'il existe

---

Je crois d'ailleurs que c'est la méthode la plus répandue ;)

Citation:

---

Envoyé par titeeee

si il y a une autre erreur comme par exemple, que le fichier est déjà ouvert, il va te le detecter un tent que fichier inexistant

---

Astuce !

Nous pouvons déterminer si un fichier est effectivement ouvert à l'aide du champ mode du type de fichier FileRec défini dans l'unité DOS.

Code:

---

1 2 3 4 5

If FileRec(F).Mode<>fmClosed Then Begin WriteLn('Fichier ouvert'); End;

---

Pas bête, je connaissait pas, mais c'est vrai que c'est pratique

Salut, tu peux aussi par cette méthode "si le fichier n'existe pas alors faire la création du fichier :D "

Code:

---

1 2 3 4 5 6 7

procedure creation (var f:fc); begin assign(f,'c:\test.txt'); {$I-} reset (f) {$I+}; if IOResult <> 0 then rewrite(f); end;

---