Bonsoir à tous,

Il y a bien longtemps que j'ai fais du VB.NET et je coince sur un problème.
Un copain m'a demandé de lui faire une petite application afin de modifier en série les métadonnées de ses images.

Toutefois, je n'arrive pas à enregistrer mes modifications de métadonnées Exif (dernière ligne de code.

Voici mon 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 addMetadata(strfilePicture As String)
        'JPG
        '40091 : Titre
        '40092 : Commentaires
        '40093 : Auteurs
        '40094 : Mots-clés
        '40095 : Objet
 
        Dim img As Image = Image.FromFile(strfilePicture)
 
        Dim propItems As PropertyItem() = img.PropertyItems
 
        For Each propItem In propItems
            Select propItem.Id
                Case 40091
                    propItem.Value = Encoding.UTF8.GetBytes("Demo VB.Net")
            End Select
        Next
        'Ca coince ici
        img.Save(strfilePicture)
 
End Sub
Quelqu'un pourrait il m'indiquer où est mon erreur ?

Merci à tous

Cordialement

Christophe

PS : désolé pour la mise en forme du code mais il semblerait que la balise [CODE] ne fonctionne pas bien