Discussion :

[rolamic]

Bonjour à tous,

En VBScript avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
stRep="d:\MesPhotos" 
stFichier ="photo.jpg" 
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.Namespace(stRep)
Set oFichier = oFolder.Items.Item(stFichier)
'Affiche les propriétés étendues du fichier
For i = 0 to 34
 Wscript.Echo  "[" & i &  "] " & oFolder.GetDetailsOf(oFolder.Items, i  ) & " : " & oFolder.GetDetailsOf(oFichier, i)
Next

il est possible d'affiche les détails d'un fichier
ex.:
i= 10 on obtient le Titre
i = 20 on obtient le Genre
etc...

Comment faire la même chose en vb.net

Merci d'avance

[GuruuMeditation]

Il faut utiliser Shell32.

D'abord rajouter la référence vers "Microsoft Shell Controls and automation". Attention, c'est dans la partie COM de add reference, pas dans Assemblies.

Apres, c'est comme avec le script. Exemple en C# :

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
  var shell = new Shell32.Shell();
  var folder = shell.NameSpace(@"d:\MesPhotos");
 
  var file = folder.Items().Item("photo.JPG");
 
  for (var i = 0; i < 34; i++)
   {
     Debug.WriteLine(string.Format("[{0}] {1} : {2}",i, folder.GetDetailsOf(folder.Items(),i),folder.GetDetailsOf(file,i)));
    }

[rolamic]

Bonsoir GuruuMeditation,

un grand merci ça fonctionne.

Bonne soirée