file-attributes properties set - Using VBA to get extended file attributes
You can get this with
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
See this page for all the fields you can access with this: http://msdn.microsoft.com/en-us/library/bb220896.aspx
If you're trying to do this outside of the client (i.e. with Excel closed and running code from, say, a .NET program), you need to use DSOFile.dll.
Trying to use Excel VBA to capture all the file attributes from files on disk, including extended attributes. Was able to get it to loop through the files and capture the basic attributes (that come from the file system):
- File Path
- File Name
- File Size
- Date Created
- Date Last Accessed
- Date Last Modified
- File Type
Would also like to capture the extended properties that come from the file itself:
- Last Author
And other properties which are visible when right clicking on the file.
The goal is to create a detailed list of all the files on a file server.