cs_issamissam
Messages postés7Date d'inscriptiondimanche 20 novembre 2005StatutMembreDernière intervention29 décembre 2005
-
29 déc. 2005 à 14:05
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 2006
-
29 déc. 2005 à 15:45
comment je peux savoir si un repertoire contient des dossiers ou non, et comment et comment je peux savoir leur nom sans utiliser dir listbox ou un autre ocx
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 29 déc. 2005 à 15:45
Oups !!! Dark Sidious !! avec l'option vbDirectory, la fonction Dir retourne les dossier ET les ficheirs sans attribut !!!
Pour n'avoir que les dossiers, il faut faire un petit test supplémentaire sur les noms retournés par Dir()
Un truc du genre
If GetFileAttributes(CheminCompletDuFichier) And FILE_ATTRIBUTE_DIRECTORY Then
Avec
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
et
Const FILE_ATTRIBUTE_DIRECTORY = &H10