Bonjour,

J'utilise un macro excel pour lister les fichiers d'une arborescence réseau.
Le but étant d'afficher le nom du fichier ainsi qu'un lien vers le fichier. Jusque là ok pas de souci.

Maintenant je voudrai lire les propriétés avancées (commentaires, mots clés, descriptions) des fichiers et les inserer dans des colonnes de mon tableau excel.
--> ça ok.

Enfin je voudrai pouvoir modifier les propriétés avancées d'un fichier depuis vba.

Pour lire les propriété avancé j'ai trouvé la méthode "GetDetailsOf" qui fonctionne bien.

Existe-t-il une méthode ou un moyen de faire un SetDetailsOf pour modifier les valeurs de ces propriétés avancées?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim Oshell As Object
Dim ODir As Object
 
Set Oshell = CreateObject("Shell.Application")
Set ODir = Oshell.Namespace("c:\temp")
 
        'i=18 --> Mots clés
        i = 18
            TextBox1.Text = TextBox1.Text & "N° " & i & ": " & ODir.GetDetailsOf(ODir, i) & " = "
             For Each sFile In ODir.Items
                TextBox1.Text = TextBox1.Text & ODir.GetDetailsOf(sFile, i) & " / "
            Next
            TextBox1.Text = TextBox1.Text & " - "
        'i=24 --> Commentaires
        i = 24
            TextBox1.Text = TextBox1.Text & "N° " & i & ": " & ODir.GetDetailsOf(ODir, i) & " = "
             For Each sFile In ODir.Items
                TextBox1.Text = TextBox1.Text & ODir.GetDetailsOf(sFile, i) & " / "
            Next
            TextBox1.Text = TextBox1.Text & " - "
        'i=34 --> Description fichier
        i = 34
            TextBox1.Text = TextBox1.Text & "N° " & i & ": " & ODir.GetDetailsOf(ODir, i) & " = "
            For Each sFile In ODir.Items
                TextBox1.Text = TextBox1.Text & ODir.GetDetailsOf(sFile, i) & " / "
            Next
            TextBox1.Text = TextBox1.Text & Chr(13)
Merci d'avance,

Cordialement,

Stéph