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

[Paul_Hossler]

Using Windows 10, the easiest way I know to get the special folder enums is

Option Explicit


Sub ListSpecialFolders()
    Dim i As Long
    
    With CreateObject("Shell.Application")
        For i = 0 To 99
            Cells(i + 1, 1) = i
            On Error Resume Next
            Cells(i + 1, 2) = .Namespace(CVar(i)).Self
            Cells(i + 1, 3) = .Namespace(CVar(i)).Self.Path
            On Error GoTo 0
        Next i
    End With
End Sub

Capture.JPG