cp4
XLDnaute Barbatruc
Bonjour
Au fil de mes recherches, j'ai trouvé ce code pour vérifier si un dossier existe.
Cependant, le code plante avec ce message
dans la fonction (ligne ***). Pourquoi?
NB: le dossier "Nom Dossier" n'existe pas sur ma machine, le code devrait renvoyer 'False' or ce n'est pas le cas. Avec un code similaire mais pour un fichier, le code renvoie bien 'Faux'
En vous remerciant par avance.
Bonne journée
Au fil de mes recherches, j'ai trouvé ce code pour vérifier si un dossier existe.
Cependant, le code plante avec ce message
dans la fonction (ligne ***). Pourquoi?
VB:
Sub Test1()
MsgBox DossierExiste("C:\Documents and Settings\Nom Dossier")
End Sub
Function DossierExiste(NomDossier As String) As Boolean
DossierExiste = Dir(NomDossier, vbSystem + vbDirectory + vbHidden) <> "" '***
End Function
VB:
Sub Test()
MsgBox FichierExiste("C:\Documents and Settings\dossier\dataBase.mdb")
End Sub
Function FichierExiste(NomFichier As String) As Boolean
FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End FunctionBonne journée
Dernière édition: