Dire si un fichier existe

Messages postés
287
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
18 janvier 2004
-
Messages postés
94
Date d'inscription
lundi 23 septembre 2002
Statut
Membre
Dernière intervention
22 avril 2003
-
Comment dit on "si un fichier existe"?
Merci de me répondre.

4 réponses

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

s'utilise :
dim Fexiste as boolean

Fexiste=PathFileExists("C:\Program files\Desk3\readme.txt")

Fexiste=True si le fichier existe
Messages postés
37
Date d'inscription
lundi 1 juillet 2002
Statut
Membre
Dernière intervention
5 mai 2004

Tu peux aussi faire comme ca.

Set fs = CreateObject("Scripting.FileSystemObject")
fs.FileExists("c:\boot.ini")

Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
J'ai fait une source nommée OBJET : Gestion fichiers qui parle de ca, va la voir si tu veux un exemple concret.

DARK SIDIOUS
Messages postés
94
Date d'inscription
lundi 23 septembre 2002
Statut
Membre
Dernière intervention
22 avril 2003

Il y a beaucoup plus simple :

private function FichierExist(cheminFichier as string)as boolean

FichierExist = iif(Dir(cheminFichier)<>"",True,False)

end function