[AccessD] Retrieve a file types default icon for use with treeview

I have a VB6 sample that I downloaded from Planet Source Code.  
Should be easy enough to tailor to work in AccessXP:

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=13803&
lngWId=1
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MarkH
Sent: Monday, November 01, 2004 11:01 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Retrieve a file types default icon for use with
treeview


Hello All...

Using Access XP with Windows XP

I have a treeview which includes branches representing external files
(.doc, .xls, .jpg etc.), I would like the icon displayed for these
branches to be the same as the one you would see in Explorer. I would
like to avoid hard-coding the icons into an image control as the file
records can be of any type, also in the case of MS Office for example,
the icons can change according to the applications version.

Anyone know how I can get at the default icon for a given type in a way
which I can use dynamically with an image control and treeview? Even if
it was only for MS Office file types???

Thanks in advance :@)

Mark

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.769 / Virus Database: 516 - Release Date: 24/09/2004
 


--------------------------------------------------------------------------------------------------------------------
The information in this email may contain confidential information that 
is legally privileged. The information is only for the use of the intended 
recipient(s) named above. If you are not the intended recipient(s), you 
are hereby notified that any disclosure, copying, distribution, or the taking 
of any action in regard to the content of this email is strictly prohibited.  If 
transmission is incorrect, unclear, or incomplete, please notify the sender 
immediately. The authorized recipient(s) of this information is/are prohibited 
from disclosing this information to any other party and is/are required to 
destroy the information after its stated need has been fulfilled.

Any views expressed in this message are those of the individual
sender, except where the sender specifies and with authority,
states them to be the views of Tappe Construction Co.

This footer also confirms that this email message has been scanned
for the presence of computer viruses.Scanning of this message and
addition of this footer is performed by SurfControl E-mail Filter software
in conjunction with virus detection software.