' Affiche les noms dans C:\ représentant des dossiers.MyPath = "c:\" ' Définit le chemin d'accès.MyName = [B]Dir([/B]MyPath[B],[/B] vbDirectory[B]) [/B]' 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 = [B]Dir[/B] ' Extrait l'entrée suivante.Loop