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?
Merci d'avance,
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)
Cordialement,
Stéph
Partager