Agregar comentario a un JPG desde VB6

"Ignacio" escribió en el mensaje de noticias
news:
¡Hola, Sonia!

Después de darle muchas vueltas sólo he conseguido modificar por
código las propiedades extendidas de un fichero mediante DSOfile. El
método no es simple.
Primero debes descargarte una librería de Microsoft, DSOfile.dll,
desde http://support.microsoft.com/kb/224351, donde se explica un poco
el proceso. Aunque diga que sólo funciona con documentos de Microsoft
Office a mí me ha funcionado con muchos otros, eso sí, con sintema de
archivos NTFS. No funciona con FAT. Una vez descargado el archivo se
ejecuta para que lo registre en el sistema.
A continuación, en Visual Basic se añade una referencia a la librería
DSOFile (DSO OLE Document Properties Reader 2.1) y copia el siguiente
código:
Private Sub ModificaComentario()
Const sFichero As String = "C:\Documents and Settings\Mis
documentos\Ejemplo.jpeg"
Dim objPropiedades As DSOFile.OleDocumentProperties,
objPropResumen As DSOFile.SummaryProperties

Set objPropiedades = New DSOFile.OleDocumentProperties
objPropiedades.Open sFichero
Set objPropResumen = objPropiedades.SummaryProperties
objPropResumen.Comments = "Comentario creado con DSOFile"
Set objPropResumen = Nothing
objPropiedades.Save
objPropiedades.Close
Set objPropiedades = Nothing
End Sub

Por último, cambia la constante sFichero por el nombre de tu fichero
con la ruta completa y la propiedad Comments por el comentario que
desees.

Espero que te funcione.
Un saludo,
Ignacio.


>
Bien dicho. Ese modo sigue siendo funcional aunque no estés en XP.

Los jpg obviamente no son oledoc, por lo que la data en formato ole no
podía ser escrita impunemente en el archivo original. Por eso se usaban
archivos "fantasma" (los ADS) propios del NTFS no portables a otro file
system.

En vista+ se opta por escribir en el propio archivo (cuando es posible) y
en el standard disponible. Vos podés crear tu propio handler y esquema xml
para describir los datos a almacenar (abandonando los identificadores
usados por ole).