Bonsoir à tous et bonne année à tous les dévoués que vous êtes,
Je voudrais lister à partir d'un chemin d'accès ( D:\Copie\ par ex. ) tous
les répertoires et sous-répertoires de ce chemin, mais je ne veux pas lister
les fichiers.
Merci par avance pour le petit bout de code qui permettrait de faire cela
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonsoir. D'après une macro de JB :
Public Ligne As Long 'à mettre en tête du module
Sub ListeDossiers() Ligne = 1 Set fso = CreateObject("Scripting.FileSystemObject") 'Set dossier_racine = fso.getfolder("D:Copie") Set dossier_racine = fso.getfolder("e:donneesdaniel") Lit_dossier dossier_racine End Sub Sub Lit_dossier(ByRef dossier) Ligne = Ligne + 1 Cells(Ligne, 1) = dossier.Path For Each d In dossier.SubFolders Lit_dossier d Next End Sub
Cordialement. Daniel
Bonsoir à tous et bonne année à tous les dévoués que vous êtes,
Je voudrais lister à partir d'un chemin d'accès ( D:Copie par ex. ) tous les répertoires et sous-répertoires de ce chemin, mais je ne veux pas lister les fichiers.
Merci par avance pour le petit bout de code qui permettrait de faire cela
Cordialement
Infogroup
Bonsoir.
D'après une macro de JB :
Public Ligne As Long 'à mettre en tête du module
Sub ListeDossiers()
Ligne = 1
Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier_racine = fso.getfolder("D:Copie")
Set dossier_racine = fso.getfolder("e:donneesdaniel")
Lit_dossier dossier_racine
End Sub
Sub Lit_dossier(ByRef dossier)
Ligne = Ligne + 1
Cells(Ligne, 1) = dossier.Path
For Each d In dossier.SubFolders
Lit_dossier d
Next
End Sub
Cordialement.
Daniel
Bonsoir à tous et bonne année à tous les dévoués que vous êtes,
Je voudrais lister à partir d'un chemin d'accès ( D:Copie par ex. ) tous
les répertoires et sous-répertoires de ce chemin, mais je ne veux pas lister
les fichiers.
Merci par avance pour le petit bout de code qui permettrait de faire cela
Sub ListeDossiers() Ligne = 1 Set fso = CreateObject("Scripting.FileSystemObject") 'Set dossier_racine = fso.getfolder("D:Copie") Set dossier_racine = fso.getfolder("e:donneesdaniel") Lit_dossier dossier_racine End Sub Sub Lit_dossier(ByRef dossier) Ligne = Ligne + 1 Cells(Ligne, 1) = dossier.Path For Each d In dossier.SubFolders Lit_dossier d Next End Sub
Cordialement. Daniel
Bonsoir à tous et bonne année à tous les dévoués que vous êtes,
Je voudrais lister à partir d'un chemin d'accès ( D:Copie par ex. ) tous les répertoires et sous-répertoires de ce chemin, mais je ne veux pas lister les fichiers.
Merci par avance pour le petit bout de code qui permettrait de faire cela
Cordialement
Infogroup
Infogroup
Merci Daniel, tout fonctionne OK
Cordialement
Infogroup
"Daniel.C" a écrit dans le message de news:
Bonsoir. D'après une macro de JB :
Public Ligne As Long 'à mettre en tête du module
Sub ListeDossiers() Ligne = 1 Set fso = CreateObject("Scripting.FileSystemObject") 'Set dossier_racine = fso.getfolder("D:Copie") Set dossier_racine = fso.getfolder("e:donneesdaniel") Lit_dossier dossier_racine End Sub Sub Lit_dossier(ByRef dossier) Ligne = Ligne + 1 Cells(Ligne, 1) = dossier.Path For Each d In dossier.SubFolders Lit_dossier d Next End Sub
Cordialement. Daniel
Bonsoir à tous et bonne année à tous les dévoués que vous êtes,
Je voudrais lister à partir d'un chemin d'accès ( D:Copie par ex. ) tous les répertoires et sous-répertoires de ce chemin, mais je ne veux pas lister les fichiers.
Merci par avance pour le petit bout de code qui permettrait de faire cela
Cordialement
Infogroup
Merci Daniel, tout fonctionne OK
Cordialement
Infogroup
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news:eMAojC2cJHA.5540@TK2MSFTNGP05.phx.gbl...
Bonsoir.
D'après une macro de JB :
Public Ligne As Long 'à mettre en tête du module
Sub ListeDossiers()
Ligne = 1
Set fso = CreateObject("Scripting.FileSystemObject")
'Set dossier_racine = fso.getfolder("D:Copie")
Set dossier_racine = fso.getfolder("e:donneesdaniel")
Lit_dossier dossier_racine
End Sub
Sub Lit_dossier(ByRef dossier)
Ligne = Ligne + 1
Cells(Ligne, 1) = dossier.Path
For Each d In dossier.SubFolders
Lit_dossier d
Next
End Sub
Cordialement.
Daniel
Bonsoir à tous et bonne année à tous les dévoués que vous êtes,
Je voudrais lister à partir d'un chemin d'accès ( D:Copie par ex. )
tous les répertoires et sous-répertoires de ce chemin, mais je ne veux
pas lister les fichiers.
Merci par avance pour le petit bout de code qui permettrait de faire cela
Sub ListeDossiers() Ligne = 1 Set fso = CreateObject("Scripting.FileSystemObject") 'Set dossier_racine = fso.getfolder("D:Copie") Set dossier_racine = fso.getfolder("e:donneesdaniel") Lit_dossier dossier_racine End Sub Sub Lit_dossier(ByRef dossier) Ligne = Ligne + 1 Cells(Ligne, 1) = dossier.Path For Each d In dossier.SubFolders Lit_dossier d Next End Sub
Cordialement. Daniel
Bonsoir à tous et bonne année à tous les dévoués que vous êtes,
Je voudrais lister à partir d'un chemin d'accès ( D:Copie par ex. ) tous les répertoires et sous-répertoires de ce chemin, mais je ne veux pas lister les fichiers.
Merci par avance pour le petit bout de code qui permettrait de faire cela