La Web del Programador: Comunidad de Programadores
 
    Pregunta:  6791 - COMO OBTENER CARACTERISTICAS DE UNA ARCHIVO
Autor:  Susana Pinto Sánchez
Necesito saber como puedo obtener las caracteristicas de un archivo en word, como por ej, Fecha de creación, Fecha de Modificación etc, para mostrarlas en un pagina, junto al link del archivo propiamente tal.
Desde ya muchas gracias

  Respuesta:  Sonia
Puedes utilizar las propiedades DateLastModified, DateCreated y DateLastAccessed:

El formato es el siguiente: objeto.DateLastModified
(El objeto es siempre un objeto File o Folder)

Ejemplo:

Function MostrarInfoAccesoArchivo(nombreArchivo)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(nombreArchivo)
s = UCase(nombreArchivo) & "<BR>"
s = s & "Fecha creación: " & f.DateCreated & "<BR>"
s = s & "Último acceso: " & f.DateLastAccessed & "<BR>"
s = s & "Última modificación: " & f.DateLastModified
MostrarInfoAccesoArchivo = s
End Function