Salut tout le monde. petite question je dois vérifier si des dossiers existe donc je fais la chose suivante
Function Dossier_Existe(Le_dossier As String) As Boolean
Dossier_Existe = False
If Dir(Le_dossier & "") <> "" Then
Dossier_Existe = True
Else
Dossier_Existe = False
End If
End Function
(le_dossier = app.path & "\ Access")
là il me détect mon dossier que si il y à quelque chose dedant, et je vous parle même pas d'un sous dossier... non il lui faut un fichier un vrai de vrai
ensuite si je fais
Function Dossier_Existe(Le_dossier As String) As Boolean
Dossier_Existe = False
If Dir(Le_dossier) <> "" Then
Dossier_Existe = True
Else
Dossier_Existe = False
End If
End Function
là plus rien n'existe... donc j'inverse mon true et mon false et tout existe même si il ni a rien....
donc si quelqu'un peu m'expliquer... ou me donné un autre code se serais sympat merci
@+ Sator
merci pour votre attention et peut-être vos réponses....
Essai ça pour
'Test présence répertoire
Public Function DirExists(ByVal strDirName As String) As Boolean
On Error Resume Next DirExists (GetAttr(strDirName) And vbDirectory) vbDirectory
End Function
en fait c'est marrant mais cette erreur, m'a appris quelque chose... quand on oublie le vbdirectory, indirectement on sait si le dossier est vide ou plein...
merci infiniment à tous...