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 :
Quelqu'un pourrait il m'indiquer où est mon erreur ?
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
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
Partager