tester l existence d un fichier sous turbo pascal

bonjour,

Est ce quelqu’un un sais comment tester l’existence d un fichier sous turbo pascal de préférence avec (turbo pascal for windows 1.5)

Merci d'avance.

PS : j ai fais une recherche mais cela c est avère infructueux, donc je suppose que cela n a pas était traiter, ou bien je ne l’ai pas trouvé se qui est plus probable.

Bonjour !

Tu peux te servir de la fonction OpenFile de l'API avec le flag OF_EXIST. Cette fonction gère les noms de fichiers MS-DOS ainsi que les noms longs.

http://www.developpez.net/forums/vie...ght=fileexists

Voilà la réponse faite par le chef !

J'ai lu trop vite la question : en voyant "Windows", j'ai plutôt pensé à une fonction de l'API Windows...

Mais tu n'as pas tout à fait tort Alcatîz ! On devrait pouvoir utiliser l'API de Windows dan ce cas-ci !

j ai trouver voila :

Code:

---

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

function existe-il(var f : file ) : boolean; {on passe en parametre un fichier} begin   {$I-} Reset(f); {$I+} if IOResult = 0 then begin existe-il := true; close(f) end else existe-il := false; end;

---