fso

Using VBA to get extended file attributes

by

You say loop .. so if you want to do this for a dir instead of the current document; 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 Where XXX is an attribute column index, 9 for Author for … Read more