' GetSummaryInfo
' http://www.utteraccess.com/wiki/index.php/GetSummaryInfo
' Code courtesy of UtterAccess Wiki
' Licensed under Creative Commons License
' http://creativecommons.org/licenses/by-sa/3.0/
'
' You are free to use this code in any application,
' provided this notice is left unchanged.
'
' rev  date                          brief descripton
' 1.0  2011-04-26                    
'
Function GetSummaryInfo(vPath As Variant, vName As Variant, iColumn As Integer) As Variant
   
   Dim objShell As Object
   Dim objFolder As Object
   Dim objItem As Object
   
   Set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.NameSpace(vPath)
   Set objItem = objFolder.ParseName(vName)
   
   GetSummaryInfo = objFolder.GetDetailsOf(objItem, iColumn)
   
End Function