Propriétés des fichiers flac en VBA

Version imprimable

29/05/2013, 17h09
94Skarb

Propriétés des fichiers flac en VBA

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 !
04/06/2013, 23h07
94Skarb

Fichier Flac et VBA suite

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...

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:

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

05/06/2013, 22h56
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
12/06/2013, 22h33
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.