cs_Hobby
Messages postés116Date d'inscriptionmercredi 5 juin 2002StatutMembreDernière intervention17 septembre 2008 3 oct. 2002 à 00:15
Merci de ta rêponse, c'est en effet la solution:
Voici le code complet pour les autres:
' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "c:" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) ' Extrait la première entrée.
Do While MyName <> "" ' Commence la boucle.
' Ignore le dossier courant et le dossier
' contenant le dossier courant.
If MyName <> "." And MyName <> ".." Then
' Utilise une comparaison au niveau du bit pour
' vérifier que MyName est un dossier.
If (GetAttr(MyPath & MyName) _
And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Affiche l'entrée uniquement si elle
End If ' représente un dossier.
End If
MyName = Dir ' Extrait l'entrée suivante.
Loop
C'était dans le MSDN mais j'avais pas vu.
Merci encore
Olivier