Discussion :

[kaba90]

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

[krachik]

Bonjour et bienvenue

Une petite recherche dans la FAQ te donnera satisfaction.

[EpiTouille]

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 :

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

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

[l_autodidacte]

Juste un oubli

Code :

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

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

[Eric2a]

Salut,

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

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 :

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

1
2
3
4
5
 
If FileRec(F).Mode<>fmClosed Then
   Begin
    WriteLn('Fichier ouvert');
   End;

[EpiTouille]

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

[BeChirOs]

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

Code :

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

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;