Comment modifier la date de prise de vue dans un EXIF
Bonjour à tous
Je travaille sous VB.Net et je voudrais pouvoir modifier la date de prise de vue dans l'EXIF de photos.
J'ai trouvé un exemple (dans les conversations) qui permet de récupérer la date de prise de vue que j'ai réussi à faire fonctionner pour mon cas.
Mais je n'ai pas trouvé d'exemple pour la réinsérer
Voici le code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
Public Sub Récupère()
Dim DA As String
Dim img As Image
Dim prop As PropertyItem
Dim sDate As String
Dim dateTimeOriginal As Date
Chemin = CurDir()
Photo = Chemin & "\DSCF0077.JPG"
img = Image.FromFile(Photo)
prop = img.GetPropertyItem(&H9003)
sDate = Encoding.ASCII.GetString(prop.Value, 0, prop.Len).TrimEnd(Chr(0))
'Récupère la date de prise de vue au format Américain
dateTimeOriginal = DateTime.ParseExact(sDate, "yyyy:MM:dd HH:mm:ss", Nothing)
'Récupère la date de prise de vue au format Européen
DA = dateTimeOriginal.ToString
End Sub |
Je voudrais, après avoir modifié la date, par exemple nDate, la réinsérer dans l'EXIF.
nDate doit-elle être au format Américain ?
Quelqu'un peut-il m'aider SVP ?
Merci de votre aide