Exploration dossiers

koyot3 · 25 Juillet 2008

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

Code:

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 · 25 Juillet 2008

Re : Exploration dossiers

finalement j'ai trouvé

pour ceux que ca intéresse :

Code:

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 · 19 Novembre 2008

Re : Exploration dossiers

MERCI beaucoup!

Exploration dossiers

koyot3

XLDnaute Nouveau

koyot3

XLDnaute Nouveau

badbad

XLDnaute Junior

Discussions similaires