Home
Home

---Soumis par Dev Ashish---

Vérifier si un fichier ou un répertoire existe.

(Q)    Y-a-t-il une façon simple de vérifier l'existence d'un fichier ou d'un répertoire?

(A)    Bien sût, utiliser la fonction Dir.

(Merci à Andy Baron pour la correction)

'***************** Code Start *******************
Function fIsFileDIR(stPath As String, _
                    Optional lngType As Long) _
                    As Integer
'Utiliser le chemin complet pour  stPath
'Pour vérifier un fichier
'   ?fIsFileDIR("c:\winnt\win.ini")
'Pour vérifier un répertoire
'   ?fIsFileDir("c:\msoffice",vbdirectory)
'
    On Error Resume Next
    fIsFileDIR = Len(Dir(stPath, lngType)) > 0
End Function
'***************** Code End *********************