Fichier existe

Résolu
Signaler
Messages postés
261
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
18 mai 2009
-
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
Y a-t-il un moyen de savoir si un fichier existe pour savoir si on
l'ouvre en creation ou en modif sans une gestion d'erreur compliquee?

J'ai fait plusieure recherche infructueuses sur le site, j'ai eu plein
de resultats sur des truc interressants qui n'ont rien a voir avec les
fichier.

4 réponses

Messages postés
261
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
18 mai 2009
3
vous allez rire, mais en posant la question, la solution m'est venue!



(Dir(App.Path & "/" & nomfich) = nomfich)



est vraie si le fichier nomfich existe, fausse sinon.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Oui effectivement ça fonctionne aussi :

Set fs = CreateObject("Scripting.FileSystemObject")
ExistFile =fs.FileExists(TonChemin)

It@li@
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Sinon :

Public Function ExistFile(strPath As String) As Boolean


Dim fs As Object
Dim blnFExiste As Boolean


Set fs = CreateObject("Scripting.FileSystemObject")
If Not (fs.FileExists(strPath)) Then
blnFExiste = False
Else
blnFExiste = True
End If
ExistFile = blnFExiste

End Function

Retourne True ou False

It@li@
Messages postés
261
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
18 mai 2009
3
ITALIA> Merci pour la reponse, jolie mais compliquee


L'interet aussi est que je decouvre un objet, il vas faloir que je travail...



J'ai peut-etre trop tendance a simplifier mais on ne pourrait pas remplacer



If Not (fs.FileExists(strPath)) Then
blnFExiste = False
Else
blnFExiste = True
End If
ExistFile = blnFExiste


par


ExistFile =
(fs.FileExists(strPath))



ou on risque des bug ou effets secondaires?