Extended File Properties

[GaryFrost]

$path = FileSelectFolder("Select Folder", "")
If @error Then Exit
Dim $arrHeaders[35]
$objShell = ObjCreate("Shell.Application")
$objFolder = $objShell.Namespace ($path)
For $i = 0 To 34
    $arrHeaders[$i] = $objFolder.GetDetailsOf ($objFolder.Items, $i)
Next
For $strFileName In $objFolder.Items
    For $i = 0 To 34
        ConsoleWrite($i & @TAB & $arrHeaders[$i] & ": " & $objFolder.GetDetailsOf ($strFileName, $i) & @LF)
    Next
    ConsoleWrite("!============================================" & @LF)
Next

[vim]

$path = FileSelectFolder("Select Folder", "")
If @error Then Exit
Dim $arrHeaders[35]
$objShell = ObjCreate("Shell.Application")
$objFolder = $objShell.Namespace ($path)
For $i = 0 To 34
    $arrHeaders[$i] = $objFolder.GetDetailsOf ($objFolder.Items, $i)
Next
For $strFileName In $objFolder.Items
    For $i = 0 To 34
        ConsoleWrite($i & @TAB & $arrHeaders[$i] & ": " & $objFolder.GetDetailsOf ($strFileName, $i) & @LF)
    Next
    ConsoleWrite("!============================================" & @LF)
Next

Good job gafrost. Something to build upon, like the old tinker toys.

Thanks for the share - ViM