UtterAccess HomeUtterAccess Wiki

Welcome Guest ( Log In | Register )

Custom Search
Edit Discussion
> GetSummaryInfo    


Synopsis

Returns the operation system's summary information for a file. This is the information you get when you right-click a file, then choose properties.

CODE
' GetSummaryInfo
' http://www.utteraccess.com/wiki/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

Creative Commons License
GetSummaryInfo by UtterAccess Wiki is licensed under a Creative Commons Attribution-ShareAlike 3.0 Unported License.
Editing and revision of the content is freely encouraged; for details, see Expected Usage.

The value if iColumn is a number between 0 and 34. Each number represents a "column" of information.

0 Name
1 Size
2 Type
3 Date Modified
4 Date Created
5 Date Accessed
6 Attributes
7 Status
8 Owner
9 Author
10 Title
11 Subject
12 Category
13 Pages
14 Comments
15 Copyright
16 Artist
17 Album Title
18 Year
19 Track Number
20 Genre
21 Duration
22 Bit Rate
23 Protected
24 Camera Model
25 Date Picture Taken
26 Dimensions
27 Not used
28 Not used
29 Not used
30 Company
31 Description
32 File Version
33 Product Name
34 Product Version

For additional information please check out: Retrieving Extended File Properties

Edit Discussion
Custom Search
Thank you for your support!
This page has been accessed 3,432 times.  This page was last modified 16:22, 26 April 2011 by Brent Spaulding.   Disclaimers