Bonjour à tous,
Il y a très longtemps, j’ai « créé » le code suivant en améliorant un code trouvé sur ce site.
Il permet de lister tous les fichiers d’un répertoire et des sous-répertoires.
Or, maintenant, je souhaiterai m’attaquer aux fichiers audios. Pour ce faire, j’aurai besoin d’jouter des colonnes avec les informations concernant des infos de propriétés du fichier : le titre, interprètes ayant participé, album

Voir, plus généralement, la listes des propriétés….
Je ne trouve pas comment faire : HELPPPPP
Merci pour votre aide.


Voici le code :

Sub Lit_dossier(ByRef dossier, ByVal niveau)
' Cells(ligne, 1) = String(4 * (niveau - 1), " ") & "[" & dossier.Path & "]"
Cells(ligne, 1) = dossier.Path
Cells(ligne, 4) = dossier.Size
Cells(ligne, 6) = dossier.Files.Count
Cells(ligne, 1).Interior.ColorIndex = 36
ligne = ligne + 1
For Each f In dossier.Files
Cells(ligne, 1) = dossier.Path
Cells(ligne, 2) = f.Name
Cells(ligne, 2).Interior.ColorIndex = xlNone
Cells(ligne, 3) = Mid(f.Name, InStrRev(f.Name, ".") + 1)
Cells(ligne, 4) = f.Size
Cells(ligne, 5) = f.DateLastModified
Cells(ligne, 6) = f.Attributes
If f.Attributes And vbHidden Then Cells(ligne, 7) = "Caché"
ligne = ligne + 1
Next
For Each d In dossier.SubFolders
Lit_dossier d, niveau + 1
Next
End Sub