Comment importer le nom de sous-repertoires dans un array?

Résolu
Messages postés
14
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
7 décembre 2008
-
Messages postés
14
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
7 décembre 2008
-
Bonjour,

je voudrais simplement savoir comment je peux récupérer le nom de tout les sous-repertoires (non recursif) d'un repertoire donné et ensuite placer ces noms dans un array?

merci :)

3 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
31
Private Sub ListeRepertoire(dossier As String)
Dim nb As Integer
Dim Table() As String
Dim fichier As String

If Right$(dossier, 1) <> "" Then dossier = dossier & ""
fichier = Dir(dossier & "*.*", vbDirectory Or vbHidden Or vbSystem)
Do Until fichier = ""
If Asc(fichier) <> 46 Then
If (GetAttr(dossier & fichier) And &H10) = vbDirectory Then
nb = nb + 1
ReDim Preserve Table(nb)
Table(nb) = dossier & fichier
End If
End If
fichier = Dir()
Loop
End Sub

Daniel
Messages postés
261
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
18 mai 2009
3
si tu veux les sous repertoires des sous repertoires, demande.

si tu veux des precisions, demande aussi.



Dim rep As String, srep As String, i As Integer

i = 0

rep = "C:path"

srep = Dir(rep, vbDirectory)
srep =
Dir
' pour passer . et ..

srep = Dir

Do Until srep = ""

If (GetAttr(rep & srep) And vbDirectory) = vbDirectory Then

table(i) = srep

i = i + 1

End If

srep = Dir

Loop
Messages postés
14
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
7 décembre 2008

Ouftiiii!, merci pour ces réponses ;)

ben en fait, il ne me faut que les repertoires pour l'instant. Le prog que je développe va permettre le gestion de fichier pour un bureau CAO. La routine que j'ai demandée est pour les repertoires clients.....le projet n'est qu'une ébauche pour l'instant (avec dejà pas mal de fonctions)

En tout cas, merci pour les réponses car j'allait coder quelque chose de 20 fois plus gros : )

david