SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: deaven en Sábado 25 de Abril de 2009, 20:07
-
:rolleyes:
Saludos compañeros de este foro.
Quisiera ver si me pueden hacer el favor de sacarme de la siguiente duda.
Cuando estoy en el explorador de windows XP y pongo el mouse encima de un archivo binario creado por mí, con una extensión k yo le puse .gpt, aparece un recuadro indicándome varios datos del archivo.
Estando en el mismo explorador, al hacer click en el archivo con el botón derecho y seleccionar propiedades aparece una ventana con 2 pestañas, una llamada "General" y la otra llamada "Resumen"
Con un código similar al siguiente, puedo leer (y en algunos casos también escribir), vía programación, los datos k aparecen en la pestaña "General"
Dim NombreDeArchivo as string
Set fs = CreateObject("Scripting.FileSystemObject")
Set Archivofs = fs.GetFile(PathYNombreDeArchivo)
debug.print "Fecha de Creacion " & Archivofs.DateCreated
debug.print "Ultimo Uso " & Archivofs.DateLastAccessed
debug.print "Ultima Modificacion" & Archivofs.DateLastModified
NombreDeArchivo = Archivofs.Name
Archivofs.Name = "NuevoNombreDeArchivo"
La pregunta es: ¿Cómo podría modificar, vía programación, los datos que se muestran en la pestaña "Resumen" de la ventana propiedades del archivo mencionado?
De antemano, gracias x su ayuda.
-
OK
Investigando un poco en internet, pude finalmente solucionar el problema.
Bajé e instalé el archivo DsoFileSetup_KB224351_x86.exe desde Micros oft
Con el archivo ya ejecutado, tuve una referencia automática en VB6 a DSO OLE Document Properties Readers 2.1
Mediante el archivo de ejemplo para VB6, además de poder modificar, mediante programación todos los datos de la ventana propiedades del archivo, incluyendo las de las pestañas "General" y "Resumen", se pueden modificar varias cosas mas.
Saludos
-
Gracias por la info: mucha gente jamás haría esto :good: