Modifier les propriétés d'un fichier

**syrll** · 02/05/2014, 20h00

Bonjour à tous !

Mon problème paraît pourtant simple, mais je n'y parviens pas : je voudrais modifier les propriétés d'un fichier (par exemple pour les musiques : titre, album...), quel que soit son type (Musique, Texte...).

Je cherche depuis plusieurs heures, et tout ce que j'ai trouvé, c'est un code :

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
Sub Test()
    infosClasseurBuiltinDocumentProperties ActiveWorkbook
End Sub
 
 
Sub infosClasseurBuiltinDocumentProperties(Wb As Workbook)
    Dim Valeur As DocumentProperty
    Dim i As Byte
 
    On Error Resume Next
 
    'Boucle sur la collection de propriétés prédéfinies
    For Each Valeur In Wb.BuiltinDocumentProperties
        i = i + 1
        'Insère le nom des propriétés dans la colonne A
        ThisWorkbook.Worksheets(1).Cells(i, 1) = Valeur.Name
        'Insère le contenu de la propriété dans la colonne B
        ThisWorkbook.Worksheets(1).Cells(i, 2) = Valeur.Value
    Next
 
    ThisWorkbook.Worksheets(1).Columns("A:B").AutoFit
End Sub

Malheureusement, il me semble qu'il soit en Excel.

Serait-il possible de le "traduire" en Visual Basic .NET ?

Ou alors, peut-être avez-vous une astuce ou une autre solution à me proposer ?

Merci de m'aider !

Syrl

**wallace1** · 02/05/2014, 20h18

Bonsoir syrll,

Au vue de se que tu as écris supra, il faut reconnaître que tu n'es absolument pas sur la bonne piste et que le manque de connaissance dans les spécificité des langages de programmation te font dire des aberrations !

Avant toute chose :

0- Le langage Excel n'existe pas ! C'est du VBA (Visual Basic pour Applications) : c'est du vb Macro.
Le langage vbNet permet de faire la même chose que le VBA grace aux librairies Office.

1- Quel est le type de fichier sur lequel tu veux extraire les soit dis-antes propriétés ?
2- Qu'entends-tu par propriétés de fichier exactement ?
3- As-tu vraiment des notions en VbNet ??

A+

**syrll** · 02/05/2014, 20h43

Bonsoir,
Merci d'avoir répondu, je commençait à désespérer

Oui, j'ai des certaines connaissances en Visual Basic.net (mon dernier programme était un chat, et j'ai suivi un tutoriel), mais je ne savais pas que Excel correspondait à VBA, c'est bon à savoir.

Je voudrais extraire les propriétés (ou tag, si je ne dis pas de bêtises... ?) premièrement d'un fichier MP3, mais si possible d'autres fichiers également.
Par propriétés de fichier, j'entends tout ce que je peux trouver lorsque je suis dans l'onglet "détails" de la fenêtre des propriétés du fichier (clic droit puis propriétés), c'est-à-dire titre, artistes, notation, commentaires, année, dernière modification...

**wallace1** · 02/05/2014, 21h05

L'idéal c'est d'utiliser des librairies existantes car contrairement à ce que tu disais dans ton 1er post ce n'est pas qqch de simple à implémenter :

Googlized :

http://id3.org/
http://glassocean.net/perrys-id3-tag-library/
http://id3lib.sourceforge.net/
http://www.codeproject.com/Articles/...g-MP-ID-v-tags

....etc.....

Attention : selon la version de l'ID3 (v1 v2) tu ne pourras pas lire certains Tag Mp3 !!

**syrll** · 02/05/2014, 23h29

Ok, merci beaucoup !
Oui, comme je l'ai dit dans mon premier post, cela parait simple
Je verrai cela demain, là, je n'ai pas les idées bien claires...
Encore merci !
Syrl

**clementmarcotte** · 03/05/2014, 02h43

Bonjour,

Ce n'est pas pantoute pour changer les propriétés des fichiers; mais tu peux t'inspirer de cela pour les lire:

http://dotnet.developpez.com/telecha...s-multi-medias

Quant à savoir si les dll utilisées permettent de modifier les propriétés, je ne sais pas.

Mais, la leçon, si leçon il y a, c'est que ce ne sont pas toutes les propriétés qui sont renseignées, et elles ne sont pas forcément toutes implantées dans tous les formats de fichiers multimédia.

Si cela t'intéresse, j'ai aussi en chantier un programme pour énumérer les propriétés des fichiers Excel, Word et PowerPoint. Le programme est quelque peu brouillon, pas commenté mais fonctionnel.

**syrll** · 03/05/2014, 10h48

Merci de votre aide !
Lire les propriétés, facile ! J'avais déjà trouvé Microsoft Shell Controls and Automation, qui fonctionne à merveille

Quant à ta dernière proposition, encore merci, mais puisque ce programme a principalement pour but de m'entraîner, je préfère tout faire de A à Z.

ÉDITÉ :
Wallace1, me code du dernier lien (sur www.codeproject.com) de fonctionne pas, je l'avais déjà vu (il date de 2003)

**syrll** · 03/05/2014, 13h56

J'ai essayé avec "Perry’s ID3 Tag Library" avant de me rendre compte que... on ne peut pas modifier les tags... >.<
Seulement, en regardant le code source, j'ai remaqué que la fonction qui permet de récupérer les tags est en réalité plutôt simple :

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
Sub New(ByVal argFileInfo As IO.FileInfo)
 
        Dim mReader As IO.FileStream = argFileInfo.OpenRead
 
        Dim mFileIdentifier(2) As Byte
        Dim mTitle(29) As Byte
        Dim mArtist(29) As Byte
        Dim mAlbum(29) As Byte
        Dim mYear(3) As Byte
        Dim mComment(29) As Byte
        Dim mGenre(0) As Byte
 
        ' start at the last 128 bytes of the file, which is where an ID3v1 tag is supposed to be
        mReader.Position = mReader.Length - 128
 
        ' read the file identifier and make sure the value equals "TAG" which indicates an ID3v1 tag
        mReader.Read(mFileIdentifier, 0, 3)
        Me.FileIdentifier = BytesToText(mFileIdentifier, True).Trim
 
        ' read the rest of the tag if it is an ID3v1 tag
        If Me.FileIdentifier = "TAG" Then
 
            Me.TagVersion = "1.0"
 
            mReader.Read(mTitle, 0, 30)
            mReader.Read(mArtist, 0, 30)
            mReader.Read(mAlbum, 0, 30)
            mReader.Read(mYear, 0, 4)
            mReader.Read(mComment, 0, 30)
            mReader.Read(mGenre, 0, 1)
 
            Me.Title = BytesToText(mTitle, True).Trim
            Me.Artist = BytesToText(mArtist, True).Trim
            Me.Album = BytesToText(mAlbum, True).Trim
            Me.Year = BytesToText(mYear, True).Trim
            Me.Comment = BytesToText(mComment, True).Trim
            'Me.Comment = RemoveChars(Me.Comment, New Integer() {0, 1, 32})
            Me.Genre = mGenre(0)
 
        Else
 
            'MsgBox("Could not find an ID3v1 tag!")
 
        End If
 
        ' close the file handle (remove the lock)
        mReader.Close()
        mReader.Dispose()
 
    End Sub

C'est là que je me suis dit : pourquoi ne pas tout simplement faire l'inverse de cette fonction ?
Tout ce que fait cette fonction, c'est simplement : lire une certaine partie du fichier (notemment les 128 derniers octets).
Serait-il possible d'écrire dans les 128 derniers octets du fichier, afin de modifier les tags ?
Merci de m'aider !
Syrl

**wallace1** · 03/05/2014, 14h24

Envoyé par syrll

..... j'ai remaqué que la fonction qui permet de récupérer les tags est en réalité plutôt simple :

Envoyé par syrll

....C'est là que je me suis dit : pourquoi ne pas tout simplement faire l'inverse de cette fonction ?

Envoyé par syrll

Tout ce que fait cette fonction, c'est simplement : lire une certaine partie du fichier (notemment les 128 derniers octets).

...Te rends-tu compte que tout te parait simplement simple ?????

PS 1 : si le raisonnement dans un projet de développement était aussi simple, les développeurs ne seraient pas obligés de s'immerger dans le domaine du projet en lisant les ressources afin de mieux appréhender le concept du futur projet :

http://fr.wikipedia.org/wiki/ID3
http://id3.org/id3v2.3.0
http://en.wikipedia.org/wiki/ID3_algorithm

PS 2 : Lis bien les commentaires du code source car ca traie uniquement de la v1 (ID3v1 tag) et il y a d'autres version .....

Envoyé par syrll

Serait-il possible d'écrire dans les 128 derniers octets du fichier, afin de modifier les tags ?

Je pense qu'il te faudrait envisager d'ouvrir 1 gitHib ou 1 Bitbucket ou 1 Codplex....et nous montrer comment tu comptes t'y prendre en toute simplicité !

A très bientôt alors.

**syrll** · 03/05/2014, 15h10

Non, je ne m'en rendais pas compte, mais c'est vrai que ça paraît logique, non ?

Donc, toujours aussi logiquement, si on lit une donnée à un endroit, la donnée est stockée à cet endroit donc il faut modifier la donnée à cet endroit !
Personnellement, je trouve cela logique !
Bref, je vais aller faire mes tests et je reviens...

ÉDITÉ :
Recherche de "simple" sur la page :
Nom : Img.jpg
Affichages : 875
Taille : 3,5 Ko