Thread: Folder icons
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Brettjg Brettjg is offline
external usenet poster
 
Posts: 295
Default Folder icons

Hello, it's been a while. When I use CopyFolder the new folder never has the
original icon (customised) on it, it just has the Windows default icon. Is
there a way to either prevent this from happening, or to restore the icon to
the new folder? The code is:

Dim fso As Object
Set fso = CreateObject("scripting.FileSystemObject")
fso.CopyFolder "C:\1. ACTIVE CLIENTS", "C:\99. BACKUPS\1. ACTIVE CLIENTS"

Also, is there a way of changing the Icon on an Excel file to something of
my choice (I've created quite a few with the excellent "LiquidIcon" software)?

Thanks, as ever, for any help you may have.
Brett