Sign in to follow this  
Followers 0
GaryFrost

Extended File Properties

2 posts in this topic

$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


SciTE for AutoItDirections for Submitting Standard UDFs

 

Don't argue with an idiot; people watching may not be able to tell the difference.

 

Share this post


Link to post
Share on other sites



$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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0