Discussion :

[94Skarb]

Bonjour,

J'ai essayé d'adapter le code de SilkyRoad qui permet de lire les propriétés des fichiers MP3 en le transposant pour les fichiers Flac.
http://www.developpez.net/forums/d47...mp3-vba-excel/

J'ai parcouru le forum et je n'arrive pas à trouver comment déterminer notamment la durée du fichier, l'auteur, la vitesse de transmission...

Si quelqu'un peut m'aider ou m'orienter !

[94Skarb]

Bonjour,

Quel silence. Je précise, au cas où, que j'aimerais savoir par exemple comment accéder au données du "METADATA_BLOCK_PICTURE" dans l'article
http://flac.sourceforge.net/format.h...vorbis_comment pour pouvoir me débrouiller.

J'ai bien trouvé un fichier source en c++ et en anglais, mais ça me dépasse...

[QuestVba]

Bonjour,

Je sais pas si cela peut t'aider mais voici un début

Tu dois utiliser la référence 'Microsoft Shell Controls and Automation'

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Public Function getFileMetadata(fileFolder As String, fileNm As String, 
metadataType As String) As String
 
    Dim objShell As SHELL32.Shell
    Dim objFolder As SHELL32.Folder
    Dim objFolderItem As SHELL32.FolderItem
 
    Set objShell = New Shell
    Set objFolder = objShell.Namespace(fileFolder)
    Set objFolderItem = objFolder.ParseName(fileNm)
 
 
   'I WAS USING THIS FOR .JPG FILES
    If metadataType = "photo" Then
       Dim cTxt as String
       cTxt = "Dimensions: " & objFolder.GetDetailsOf(objFolderItem, 26)
       cTxt = cTxt & vbCrLf & "Date Picture Taken: " & 
objFolder.GetDetailsOf(objFolderItem, 25)
       cTxt = cTxt & vbCrLf & "Camera Model: " & 
objFolder.GetDetailsOf(objFolderItem, 24)
       cTxt = cTxt & vbCrLf & "Type: " & 
objFolder.GetDetailsOf(objFolderItem, 2)
       cTxt = cTxt & vbCrLf & "Size: " & 
objFolder.GetDetailsOf(objFolderItem, 1)
       getFileMetadata = cTxt
     ElseIf metadataType = "DatePicTaken" Then
       getFileMetadata = objFolder.GetDetailsOf(objFolderItem, 25)
     Else
       getFileMetadata = objFolder.GetDetailsOf(objFolderItem, 1)
    End If
 
 
    Set objFolderItem = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
 
 
'Properties and index:
'================
'0 Name
'1 Size
'2 Type
'3 Date Modified
'4 Date Created
'5 Date Accessed
'6 Attributes
'7 Status
'8 Owner
'9 Author
'10 Title
'11 Subject
'12 Category
'13 Pages
'14 Comments
'15 Copyright
'16 Artist
'17 Album Title
'18 YEAR
'19 Track Number
'20 Genre
'21 Duration
'22 Bit Rate
'23 Protected
'24 Camera Model
'25 Date Picture Taken
'26 Dimensions
'27
'28
'29 Episode Name
'30 Program Description
'31
'32 Audio sample size
'33 Audio sample rate
'34 Channels
'35 Company
'36 Description
'37 File Version
'38 Product Name
'39 Product Version
'40 Keywords
 
 
End Function

[94Skarb]

Merci beaucoup,

Je vais essayer.

Suite :

La propriété 31 me permet d'avoir les dimensions d'une image ou photo, ce qui me fait gagner quelques lignes de code.

En bouclant sur toutes les propriétés (0 à 40), j'obtiens les propriétés des fichiers MP3 et les sept premières des fichiers flac.

Je regarde ça demain

[94Skarb]

Bonjour,

Encore merci QuestVba. J'ai trouvé un article de SilkyRoad
http://www.developpez.net/forums/d47...par-vba-excel/

qui ressemble à ce que tu as posté. J'ai cherché un peu partout et j'ai trouvé des sources en c et c++ en anglais qui semblent traiter du sujet (je ne connais pas le c et très peu l'anglais). Il semble que les informations fournies par ton code reprennent des informations données par Windows, alors que pour le flac, il faudrait lire dans une partie du fichier (quand on en connaît la structure).

Je ne désespère pas, je vais essayer tout doucement de comprendre le sens de ces posts... sauf si SilkyRoad se met au fichier flac.

Je voulais également te dire que lorsque je récupère les dimensions d'une photo par ta fonction getFileMetadata en pistant par F8, j'aperçois des points d'interrogation en début et en fin de chaîne. Je ne peux pas renommer un fichier image par les dimensions obtenues avec l'instruction name, mais uniquement par Scripting.FileSystemObject. De plus, le fichier n'est pas lisible par certaines visionneuses comme XnView, il faut le renommer par F2.

Si tu as une explication, merci par avance.