fichier existeRésolu

Question

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.

cqui789 · Accepted Answer

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.

cs_ITALIA · Answer

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@

cqui789 · Answer

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?

cs_ITALIA · Answer

Oui effectivement &#231;a fonctionne aussi :

Set fs = CreateObject("Scripting.FileSystemObject")
ExistFile =fs.FileExists(TonChemin)

It@li@

Fichier existe

4 réponses

Discussions similaires