Using VBA to get extended file attributes

by

You say loop .. so if you want to do this for a dir instead of the current document;

Dim sFile As Variant
Dim oShell: Set oShell = CreateObject("Shell.Application")
Dim oDir:   Set oDir = oShell.Namespace("c:\foo")

For Each sFile In oDir.Items
   Debug.Print oDir.GetDetailsOf(sFile, XXX) 
Next

Where XXX is an attribute column index, 9 for Author for example.
To list available indexes for your reference you can replace the for loop with;

for i = 0 To 40
   debug.? i, oDir.GetDetailsOf(oDir.Items, i)
Next

Quickly for a single file/attribute:

Const PROP_COMPUTER As Long = 56

With CreateObject("Shell.Application").Namespace("C:\HOSTDIRECTORY")
    MsgBox .GetDetailsOf(.Items.Item("FILE.NAME"), PROP_COMPUTER)
End With

More Related Contents:

  1. delete Autofilter Field resullt using the header Name
  2. Somehow it’s not copying [closed]
  3. Get list of sub-directories in VBA
  4. VBA macro that search for file in multiple subfolders
  5. Getting ScriptControl to work with Excel 2010 x64
  6. Application.Match gives type mismatch
  7. What does the Call keyword do in VB6?
  8. Transpose a range in VBA
  9. Protecting cells in Excel but allow these to be modified by VBA script
  10. Saving excel worksheet to CSV files with filename+worksheet name using VB [duplicate]
  11. How to securely store Connection String details in VBA
  12. How to type Unicode currency character in Visual Basic Editor
  13. Show “Open File” Dialog
  14. Detect merged cells in VBA Excel with MergeArea
  15. Using VBA code, how to export Excel worksheets as image in Excel 2003?
  16. Excel VBA – QueryTable AfterRefresh function not being called after Refresh completes
  17. Excel VBA: AutoFill Multiple Cells with Formulas
  18. VBA.Find and adding a value
  19. excel vba- extract text between 2 characters
  20. Round function in Excel, worksheet function vs VBA
  21. How to continue the code on the next line in VBA
  22. What is behind this difference in parentheses effect in VBA?
  23. Count the number of rows in another sheet [duplicate]
  24. Getting Excel to refresh data on sheet from within VBA
  25. Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)
  26. Search structured text in Outlook body
  27. VBA Password Input with Cancel Function
  28. What does the $ symbol do in VBA?
  29. Finding first blank row, then writing to it
  30. Does the bitness of the OS ever matter, or is it just the application I need to worry about?

Leave a Comment