Sleeper: Is there a faster method to find extended file properties

[snb]

Sub M_snb()
    For Each fl In CreateObject("shell.application").Namespace("G:\OF").Items
        c02 = ""
        With fl.Parent
            For j = 0 To 14
                c02 = c02 & vbLf & j & vbTab & .GetDetailsOf(.Items, j) & ": " & .GetDetailsOf(fl, j)
            Next
        End With
        MsgBox c02
    Next
End Sub

@PH

Internationally more robust:

    MsgBox CreateObject("wscript.shell").specialfolders(10)