OVH Cloud OVH Cloud

Propriétés d'images jpg en lecture/ecriture.

1 réponse
Avatar
Jn-Phil
Bonjour,
J'aimerais manipuler en VBA (en écriture aussi si possible) les propriétés
de fichier image (JPEG) telles qu'elles apparaissent sous l'onglet "RESUME"
de la boîte "PRORIETES" dans l'explorateur windows: TITRE, OBJET, AUTEUR,
CATEGORIE, MOTS-CLES, COMMENTAIRES.

Dans l'aide VBA, j'ai trouvé ce qui suit pour les propriétés GENERALES
(NAME, SIZE, TYPE, ATTRIBUTES, DATECREATED, etc):

Sub AfficheInfoAccesFichier(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = UCase(specfichier) & vbCrLf
s = s & "Créé le : " & f.DateCreated & vbCrLf
s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
s = s & "Dernière modification le : " & f.DateLastModified
MsgBox s, 0, "Infos d'accès au fichier"
End Sub

J'aimerais qqch du genre mais avec les propriétés évoquées ci-dessus.
Peut-être connaitriez-vous une dll freeware que je puisse charger dans mon
projet pour accéder à ces propriétés.

D'avance merci de votre aide.
JPh.
(PS: pour me répondre en privé, ôter la dernière partie de mon adresse
email. merci.)

1 réponse

Avatar
François Picalausa
Hello,

je te conseille de jeter un oeil à ce document rédigé par Jean-Claude
Bellamy:
http://www.bellamyjc.org/fr/stream.html

Il existe aussi des propriétés écrites dans le fichier jpeg lui même.
Pour ces propriétés, je te conseille:
http://www.mvps.org/EDais/ > Libraries > JPEG info class
ainsi que http://www.wotsit.org pour le format de fichier.

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net
"Jn-Phil" a écrit
dans le message de news:%
J'aimerais manipuler en VBA (en écriture aussi si possible) les propriétés
de fichier image (JPEG) telles qu'elles apparaissent sous l'onglet


"RESUME"
de la boîte "PRORIETES" dans l'explorateur windows: TITRE, OBJET, AUTEUR,
CATEGORIE, MOTS-CLES, COMMENTAIRES.

Dans l'aide VBA, j'ai trouvé ce qui suit pour les propriétés GENERALES
(NAME, SIZE, TYPE, ATTRIBUTES, DATECREATED, etc):

Sub AfficheInfoAccesFichier(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = UCase(specfichier) & vbCrLf
s = s & "Créé le : " & f.DateCreated & vbCrLf
s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
s = s & "Dernière modification le : " & f.DateLastModified
MsgBox s, 0, "Infos d'accès au fichier"
End Sub

J'aimerais qqch du genre mais avec les propriétés évoquées ci-dessus.
Peut-être connaitriez-vous une dll freeware que je puisse charger dans mon
projet pour accéder à ces propriétés.