Sur un disque dur, j'ai un répertoire appelé Base.
Dans ce répertoire, j'ai x sous-répertoires.
Dans ces x sous-répertoires, j'ai aussi des sous-répertoires etc...
Serait-il, à partir du répertoire Base, de ne lister que les répertoires de
rang 1 ou que les répertoires de rang 2 etc...
J'espère avoir été assez clair.
Je suis parti de la proc. de MichDenis, mais elle liste tous les
répertoires.
Pour mémoire, voir ci-dessous.
Public Ligne As Long
Sub ListeDossiers()
Path = H:\Base
If Dir(Path, vbDirectory) = "" Then MsgBox "Dossier introuvable": Exit
Sub
Ligne = 13
Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier_racine = fso.GetFolder("H:\Base")
Set dossier_racine = fso.getfolder(Path)
Lit_dossier_DVD dossier_racine
End Sub
Sub Lit_dossier (ByRef dossier)
Ligne = Ligne + 1
Cells(Ligne, 7) = dossier.Path
'Cells(Ligne, 7) = dossier.Name
| Mgr T. Banni | il y a, par contre, un dénommé michel qui lui est très assidu | off record : c'est, faut bien le dire, une autre pointure que | celui dont à quoi on cause...
*** Continuer de diffamer Mgr, c'est moi qui vous le dis ce n'est pas demain que vous serez canonisé! ;-)
:-))))))))
T.B.
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
55526C04-3606-4E5C-9355-97BBA0D0C8FB@microsoft.com...
| Mgr T. Banni
| il y a, par contre, un dénommé michel qui lui est très assidu
| off record : c'est, faut bien le dire, une autre pointure que
| celui dont à quoi on cause...
*** Continuer de diffamer Mgr, c'est moi qui vous le dis
ce n'est pas demain que vous serez canonisé!
;-)
| Mgr T. Banni | il y a, par contre, un dénommé michel qui lui est très assidu | off record : c'est, faut bien le dire, une autre pointure que | celui dont à quoi on cause...
*** Continuer de diffamer Mgr, c'est moi qui vous le dis ce n'est pas demain que vous serez canonisé! ;-)
Infogroup
Merci à michdenis et JB, mais j'ai encore un petit souci,
en effet, ma demande à l'origine était de pouvoir ne lister que les sous-répertoires de niveau 1 ou que les sous-répertoires de niveau 2 etc..., ceci étant définit par un choix du niveau de l'arborescence à partir du répertoire de base.
Merci encore par avance
Cdl
Infogroup
"JB" a écrit dans le message de groupe de discussion :
Sur un disque dur, j'ai un répertoire appelé Base. Dans ce répertoire, j'ai x sous-répertoires. Dans ces x sous-répertoires, j'ai aussi des sous-répertoires etc...
Serait-il, à partir du répertoire Base, de ne lister que les répertoires de rang 1 ou que les répertoires de rang 2 etc...
J'espère avoir été assez clair. Je suis parti de la proc. de MichDenis, mais elle liste tous les répertoires. Pour mémoire, voir ci-dessous.
Public Ligne As Long
Sub ListeDossiers()
Path = H:Base If Dir(Path, vbDirectory) = "" Then MsgBox "Dossier introuvable": Exit Sub
Ligne = 13 Set fso = CreateObject("Scripting.FileSystemObject") 'Set dossier_racine = fso.GetFolder("H:Base") Set dossier_racine = fso.getfolder(Path) Lit_dossier_DVD dossier_racine
End Sub
Sub Lit_dossier (ByRef dossier)
Ligne = Ligne + 1 Cells(Ligne, 7) = dossier.Path 'Cells(Ligne, 7) = dossier.Name
If Dir(dossier.Path, vbDirectory) <> "*_TS" Then Cells(Ligne, 7) = "" 'If Dir(dossier.Path, vbDirectory) = "*_TS" Then GoTo p1
'p1: For Each d In dossier.subfolders Lit_dossier_DVD d Next
End Sub
Merci par avance pour vos éclairages.
Cordialement
Infogroup
Merci à michdenis et JB, mais j'ai encore un petit souci,
en effet, ma demande à l'origine était de pouvoir ne lister que les
sous-répertoires de niveau 1 ou que les sous-répertoires de niveau 2 etc...,
ceci étant définit par un choix du niveau de l'arborescence à partir du
répertoire de base.
Merci encore par avance
Cdl
Infogroup
"JB" <boisgontier@hotmail.com> a écrit dans le message de groupe de
discussion :
ffd33ef0-2fd2-4ea2-bfa9-ceef465678ba@u9g2000yqb.googlegroups.com...
On 21 fév, 12:03, "Infogroup" <regennasbern...@hotmail.com> wrote:
Bonjour à tous,
Sur un disque dur, j'ai un répertoire appelé Base.
Dans ce répertoire, j'ai x sous-répertoires.
Dans ces x sous-répertoires, j'ai aussi des sous-répertoires etc...
Serait-il, à partir du répertoire Base, de ne lister que les répertoires
de
rang 1 ou que les répertoires de rang 2 etc...
J'espère avoir été assez clair.
Je suis parti de la proc. de MichDenis, mais elle liste tous les
répertoires.
Pour mémoire, voir ci-dessous.
Public Ligne As Long
Sub ListeDossiers()
Path = H:Base
If Dir(Path, vbDirectory) = "" Then MsgBox "Dossier introuvable":
Exit
Sub
Ligne = 13
Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier_racine = fso.GetFolder("H:Base")
Set dossier_racine = fso.getfolder(Path)
Lit_dossier_DVD dossier_racine
End Sub
Sub Lit_dossier (ByRef dossier)
Ligne = Ligne + 1
Cells(Ligne, 7) = dossier.Path
'Cells(Ligne, 7) = dossier.Name
Merci à michdenis et JB, mais j'ai encore un petit souci,
en effet, ma demande à l'origine était de pouvoir ne lister que les sous-répertoires de niveau 1 ou que les sous-répertoires de niveau 2 etc..., ceci étant définit par un choix du niveau de l'arborescence à partir du répertoire de base.
Merci encore par avance
Cdl
Infogroup
"JB" a écrit dans le message de groupe de discussion :
Sur un disque dur, j'ai un répertoire appelé Base. Dans ce répertoire, j'ai x sous-répertoires. Dans ces x sous-répertoires, j'ai aussi des sous-répertoires etc...
Serait-il, à partir du répertoire Base, de ne lister que les répertoires de rang 1 ou que les répertoires de rang 2 etc...
J'espère avoir été assez clair. Je suis parti de la proc. de MichDenis, mais elle liste tous les répertoires. Pour mémoire, voir ci-dessous.
Public Ligne As Long
Sub ListeDossiers()
Path = H:Base If Dir(Path, vbDirectory) = "" Then MsgBox "Dossier introuvable": Exit Sub
Ligne = 13 Set fso = CreateObject("Scripting.FileSystemObject") 'Set dossier_racine = fso.GetFolder("H:Base") Set dossier_racine = fso.getfolder(Path) Lit_dossier_DVD dossier_racine
End Sub
Sub Lit_dossier (ByRef dossier)
Ligne = Ligne + 1 Cells(Ligne, 7) = dossier.Path 'Cells(Ligne, 7) = dossier.Name