Linker IT Software
Google
Web www.oraxcel.com
menubar-top-links menubar-top-rechts
Home Help Search Login
Welcome, Guest. Please Login.
SQL*XL: Database to Excel bridge litLIB: Excel power functions pack ExcelLock: Locking and securing your valuable Excel spreadsheets encOffice: Protect your Excel file easy and safe encOffice: Protect your Excel file easy and safe
Pages: 1
Icon harvester - Addition to the litFileSystem dll (Read 3811 times)
Gerrit-Jan Linker
YaBB Administrator
*****




Posts: 75
Icon harvester - Addition to the litFileSystem dll
22.04.06 at 00:02:11
 
Icon harvester - Addition to the litFileSystem dll
 
Today I was looking for the Visual Foxpro icon. I know it would stored in some .exe or .dll file on my system but I could not find it. I decided to do a quick and dirty application to dump all icon files on my system.
 
I decided to add the code to my litFileSystem library. With the following code the icons can be harvested from the files:
 

Dim lng as Long
Static lngCounter as Long
 
If file.Icons.Count > 0 then
  For lng = 1 to file.Icons.Count
    lngCounter = lngCounter + 1 'Just to have a unique file name for the icon
    file.Icons(lng).SaveAs "c:\icons\" & CLng(lngCounter) & ".ico", litLargeIcon
  Next lng
End If

 
I nested this code inside a recursive file search which is similarly easy to setup with the litFileSystem dll. I found over 2300 icons in my C drive, one of them being the Foxpro icon I looked for.
 
If you have an interest in this code please let me know.
 
Back to top
 
« Last Edit: 22.04.06 at 00:03:24 by Gerrit-Jan Linker »  

Gerrit-Jan Linker
Linker IT Software
Email WWW Gerrit-Jan Linker   IP Logged
Pages: 1