fonction DIR

[Alex]

Bonjour à tous
J'ai une combobox avec laquelle je liste le contenu d'un répertoire par la fonction DIR, par exemple (MesRepertoires = Dir (chemin, vbDirectory)
ça marche très bien à l'exception qu’il y a aussi 'le . et le ..' au début de la liste.
j'aimerais savoir comment faire soit pour les enlever soit commencer la liste a partir de la troisième ligne de la liste qui correspond au premier répertoire.

Merci pour votre aide et bon appétit

A+

 

[wally]

Bonjour Alex et le forum,

Ci-dessous un exemple tiré de l'aide Microsoft :

' 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


wally

 

[Alex]

Salut wally

J'ai tourné dans tous les sens ce code mais il met toujours le . et .. dans la liste
A+

 

[MichelXld]

bonjour Alex , bonjour Wally

j'espere que cet exemple pourra t'aider

Sub ListerRepertoires()
Dim Cible As String, Dossier As String

Dossier = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel'

If Right$(Dossier, 1) <> '\\' Then Dossier = Dossier & '\\'
Cible = Dir(Dossier & '*.*', vbDirectory)

Do Until Cible = ''
If Asc(Cible) <> 46 Then
If (GetAttr(Dossier & Cible) And &H10) = vbDirectory Then MsgBox Dossier & Cible
End If
Cible = Dir()
Loop
End Sub

bonne soiree
MichelXld