Exploration dossiers

[koyot3]

Bonjour a tous,

Suite à un autre topic du même style, je voudrais savoir s'il existe une extension pour les dossiers. En effet, j'essaie de lister dans une Combo la liste des dossier de mon répertoire

Répertoire = "L:\Archivage" 
masque = Répertoire + "\*.folder"
nf = Dir(masque) 
Do While nf <> ""
    Me.Choix.AddItem nf
    nf = Dir()     
Loop

je doute que .folder fonctionne
Encore merci à celui qui m'a donné ce bout de code hier 😉
merci d'avance pour votre aide

 

[koyot3]

Re : Exploration dossiers

finalement j'ai trouvé

pour ceux que ca intéresse :

Private Sub UserForm_Initialize() 

Dim fso As FileSystemObject, dossier As Folder, sousdossier As Folder, fichier As File

    Set fso = New FileSystemObject
    Set dossier = fso.GetFolder("L:\")
scan dossier

End Sub
---------------------------------
Public Sub scan(dossier As Folder)
Dim sousdossier As Folder, fichier As File
Dim i As Integer

For Each sousdossier In dossier.SubFolders
Choix.AddItem Right(sousdossier, 4)
scan sousdossier
Next

End Sub

 

[badbad]

Re : Exploration dossiers

MERCI beaucoup!