Usando VBA para obtener atributos de archivos extendidos

file-attributes fso

Question

Intento usar Excel VBA para capturar todos los atributos de archivo de los archivos en el disco , incluidos los atributos extendidos. Pude hacer que recorra los archivos y capture los atributos básicos (que provienen del sistema de archivos):

• Ruta de archivo
• Nombre del archivo
• Tamaño del archivo
• fecha de creacion
• Fecha de último acceso
• Fecha de la última modificación
• Tipo de archivo

También me gustaría capturar las propiedades extendidas que provienen del propio archivo:

• Autor
• Palabras clave
• Comentarios
• Ultimo autor
• Categoría
• Tema

Y otras propiedades que son visibles al hacer clic derecho en el archivo.

El objetivo es crear una lista detallada de todos los archivos en un servidor de archivos.

Answer 1

Dice loop .. así que si quiere hacer esto para un directorio en lugar del documento actual;

Dim sFile As Variant
Dim oShell: Set oShell = CreateObject("Shell.Application")
Dim oDir: Set oDir = oShell.Namespace("c:/foo")
For Each sFile In oDir.Items
Debug.Print oDir.GetDetailsOf(sFile, XXX)
Next

Donde XXX es un índice de columna de atribución, 9 para Autor, por ejemplo. Para enumerar los índices disponibles para su referencia, puede reemplazar el bucle for con;

for i = 0 To 40
debug.? i, oDir.GetDetailsOf(oDir.Items, i)
Next

Rápidamente para un solo archivo / atributo:

Const PROP_COMPUTER As Long = 56
With CreateObject("Shell.Application").Namespace("C:/HOSTDIRECTORY")
MsgBox .GetDetailsOf(.Items.Item("FILE.NAME"), PROP_COMPUTER)
End With

Answer 2

Puede obtener esto con .BuiltInDocmementProperties .

Por ejemplo:

Public Sub PrintDocumentProperties()
Dim oApp As New Excel.Application
Dim oWB As Workbook
Set oWB = ActiveWorkbook
Dim title As String
title = oWB.BuiltinDocumentProperties("Title")
Dim lastauthor As String
lastauthor = oWB.BuiltinDocumentProperties("Last Author")
Debug.Print title
Debug.Print lastauthor
End Sub

Consulte esta página para ver todos los campos a los que puede acceder: http://msdn.microsoft.com/en-us/library/bb220896.aspx

Si está intentando hacer esto fuera del cliente (es decir, con Excel cerrado y ejecutando código desde, por ejemplo, un programa .NET), debe usar DSOFile.dll .

Answer 3

''vb.net
''Extended file stributes
''visual basic .net sample
Dim sFile As Object
Dim oShell = CreateObject("Shell.Application")
Dim oDir = oShell.Namespace("c:/temp")
For i = 0 To 34
TextBox1.Text = TextBox1.Text & oDir.GetDetailsOf(oDir, i) & vbCrLf
For Each sFile In oDir.Items
TextBox1.Text = TextBox1.Text & oDir.GetDetailsOf(sFile, i) & vbCrLf
Next
TextBox1.Text = TextBox1.Text & vbCrLf
Next