Read File Properties with Excel VBA

The VBA script for Excel below will read the 'File Version' from the file properties and will read file name and its version each into a column in a Excel sheet.

Sub getFileProductVersion()

   Dim objShell  As Shell
   Dim objFolder As Folder
   Dim objFolderItems As FolderItems
   Dim objFolderItem As FolderItem
   Dim numberOfFiles As Long
   Dim i As Integer
   Dim j As Integer

   Set objShell = New Shell
   Set objFolder = objShell.Namespace("C:\Temp\files")

   If (Not objFolder Is Nothing) Then
       Set objFolderItems = objFolder.Items()
       numberOfFiles = objFolderItems.Count
       Range("A1").Select

       For i = 0 To numberOfFiles - 1
           Set objFolderItem = objFolderItems.Item(i)
           ActiveCell.Offset(i, 0) = objFolderItem.Name
           ActiveCell.Offset(i, 1) = objFolder.GetDetailsOf(objFolderItem, 39)
       Next i

   End If

   Set objFolder = Nothing
   Set objShell = Nothing

End Sub

Enjoy :)