Sub ListeProprietesFichiers_getDetailsOf()
'source:
'http://www.microsoft.com/resources/documentation/windows/2000/server/
'scriptguide/en-us/sas_fil_lunl.mspx
'
'Nécessite d'activer la référence Microsoft Shell Controls and Automation
'Outils / Référence et coché Microsoft Shell Controls and Automation
Dim objShell As Shell32.Shell
Dim strFileName As Shell32.FolderItem
Dim objFolder As Shell32.Folder
Dim Resultat As String, Reponse As String
Dim i As Byte
Set objShell = CreateObject("Shell.Application")
'Répertoire cible
Set objFolder = objShell.Namespace("H:\Mes Film")
'boucle sur tous les elements du repertoire
For Each strFileName In objFolder.Items
'Pour que les dosssiers ne soient pas pris en comptes
If strFileName.isFolder = False Then
Resultat = ""
For i = 0 To 34
If objFolder.GetDetailsOf(strFileName, i) <> "" Then _
Resultat = Resultat & objFolder.GetDetailsOf(objFolder.Items, i) _
& ": " & objFolder.GetDetailsOf(strFileName, i) & vbLf
Worksheets(2).[A1].Value = objFolder.GetDetailsOf(strFileName, i)
Next
Reponse = MsgBox(Resultat & vbLf & vbLf & "Voulez vous continuer?", vbYesNo)
If Reponse = vbNo Then Exit Sub
End If
Next
End Sub