Comment lister le contenu d'un dossier, ses sous dossiers et les fichiers contenus

  • Initiateur de la discussion Initiateur de la discussion Paritec
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Paritec

XLDnaute Barbatruc
Bonjour le forum,
sur le conseil de Pierrot
Je cherche à lister dans une feuille Excel la liste contenue dans
un dossier, obtenir la liste des sous dossiers, et les fichiers contenus dans ces sous dossiers.
dans l'attente de vos réponses
a+
Papou 🙂
 
Re : Comment lister le contenu d'un dossier, ses sous dossiers et les fichiers conten

Bonjour,

un code comme ceci, par exemple...

Code:
Option Explicit
Sub ListeFichiersRepert()
Dim Fso  As Object
Dim MonRepertoire As String, f As Object, x As Integer
Dim f1 As  Object, f2 As Object
Set Fso =  CreateObject("Scripting.FileSystemObject")
MonRepertoire =  "C:\Users\Moi\Documents\Dossier Excel"
x = 1
For Each f In  Fso.GetFolder(MonRepertoire).Files
    Cells(x, 1).Value = f.Name
    x =  x + 1
Next f
x = 1
For Each f1 In  Fso.GetFolder(MonRepertoire).SubFolders
    Cells(x, 2).Value =  f1.Name
    x = x + 1
    For Each f2 In f1.Files
        Cells(x - 1,  3).Value = f2.Name
        x = x + 1
    Next f2
    x = x - 1
Next  f1
End Sub

bonne journée
@+
 
Re : Comment lister le contenu d'un dossier, ses sous dossiers et les fichiers conten

Bonsoir le fil, le forum,
@Roland_M
La présentation de ta macro répond à un besoin spécifique, par contre est-il possible d'afficher pour chaque fichier sa date de création, sa date de dernière modification et sa taille?

Merci d'avance
KIM
 
Re : Comment lister le contenu d'un dossier, ses sous dossiers et les fichiers conten

Bonjour,

regarde peut être ceci, espérant que cela puisse t'aider à avancer :
Code:
Dim FichierATester As String, fs As Object, f As Object, i As Byte, attributs() As String

    FichierATester = "C:\Doc\Excel\Test.xls"
    attributs = Array("Attributes", "DateCreated", "DateLastAccessed", "DateLastModified", "Drive", "Name", "ParentFolder", "Path", "ShortName", "ShortPath", "Size", "type")
    
Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(FichierATester)
    
    Cells(1, 2).Value = f.Attributes
    Cells(2, 2).Value = f.DateCreated
    Cells(3, 2).Value = f.DateLastAccessed
    Cells(4, 2).Value = f.DateLastModified
    Cells(5, 2).Value = f.Drive
    Cells(6, 2).Value = f.Name
    Cells(7, 2).Value = f.ParentFolder
    Cells(8, 2).Value = f.Path
    Cells(9, 2).Value = f.ShortName
    Cells(10, 2).Value = f.ShortPath
    Cells(11, 2).Value = f.Size
    Cells(12, 2).Value = f.Type
      
For i = 0 To UBound(attributs)
    Cells(i + 1, 1).Value = attributs(i)
Next

bonne soirée
@+
 
Re : Comment lister le contenu d'un dossier, ses sous dossiers et les fichiers conten

Merci Pierrot93,
J'ai pu exécuter ta macro, je vais essayer de l'intégrer dans le code du fichier proposé par Roland_M car c'est sa présentation qui m'a bien intéressée.

Merci encore et bonne soirée
KIM
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour