Details

Set oFolder = CreateObject("Shell.Application").Namespace(Path)
    
    For I = 1 To 100
        Debug.Print I & ": " & oFolder.GetDetailsOf(oFolder.Items.Item(File), I)
    Next I