All posts tagged MP3

Afficher les propriétés étendues d’un fichier en VBA

Comment faire afficher en VBA  les propriétés étendues d’un fichier ? Pour récupérer les infos disponibles dans Windows (clic-droit, propriétés détails) : données EXIF, MP3…

Comment connaître la taille (hauteur x largeur) des fichiers jpg, les auteurs, albums ou genre des fichiers mp3 ? Avec le « classique » FSO, impossible d’accéder aux propriétés étendues des fichiers. Il faut utiliser la méthode « GetDetailsOf  » du Windows Shell, qui fournit un nombre important de propriétés de fichiers suivantes. Ce nombre dépend du système : d’une trentaine pour Windows P, à plus de 250 pour Seven.

Les premières sont les suivantes

0 : Name    18 : Year

1 : Size    19 : Track Number

2 : Type    20 : Genre

3 : Date Modified    21 : Duration

4 : Date Created    22 : Bit Rate

5 : Date Accessed    23 : Protected

6 : Attributes    24 : Camera Model

7 : Status    25 : Date Picture Taken

8 : Owner    26 : Dimensions

9 : Author    27 : Not used

10 : Title    28 : Not used

11 : Subject    29 : Not used

12 : Category    30 : Company

13 : Pages    31 : Description

14 : Comments    32 : File Version

15 : Copyright    33 : Product Name

16 : Artist    34 : Product Version

17 : Album Title

A noter que sur Seven, les propriétés renvoient beaucoup d’informations multimédias (Données EXIF pohotos…). Le code suivant permet d’afficher les propriétés des fichiers d’un répertoire, mais au préalable, il faut activer la référence « Microsoft Shell Controls and Automation » (éditeur VBA, menu Outils – Références).

Sub proprietesFichiers()

Dim objShell As Object, strFileName As Object

Dim objFolder As Folder

Dim Resultat As String

Dim i As Byte

Set objShell = CreateObject(« Shell.Application »)

Set objFolder = objShell.Namespace(« D:\Mes images\200908\ »)

For Each strFileName In objFolder.Items

If strFileName.isFolder = False Then

Resultat = «  »

For i = 0 To xxx (dépend du système, essayer diverses valeurs entre 34 et 300)

Resultat = Resultat &  »  » & i &  » :  » & objFolder.getDetailsOf(strFileName, i) &  » « 

Next

MsgBox Resultat

End If

Next

End Sub

Top
Page 1 of 1

Contactez-nous contact@expert-data.fr

EXPERT data, solutions pour TPE/PME et grands comptes