VBScript - Icon Copy
General Information
Script template to copy an external icon for use in a shortcut.
Checklist
- OS: Windows XP/7
The Code
- file copy_icon.vbs
'========================================================================== ' VBScript: AUTHOR: <name> <date> ' NAME: <Template-ExtIcon.vbs> ' DESCRIPTION: Copies an External Icon to C:\ if it does not already exist. '========================================================================== 'Declare Variables for later use Option Explicit Const OverwriteExisting = TRUE Dim IconName Dim CopyFrom Dim CopyTo Dim objIcon '++++++++++++++++++++++++ EDIT THESE VARIABLES +++++++++++++++++++++++++++++ 'Filename of Icon (include extension) IconName = "Name.ico" 'Full network path of folder icon is in. (include trailing slash) CopyFrom = "\\server\folder\" 'Full local directory to copy the icon to CopyTo = "C:\" '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Set objIcon = CreateObject("Scripting.FileSystemObject") If objIcon.FileExists(CopyTo & IconName) Then Wscript.Quit Else ObjIcon.CopyFile CopyFrom & IconName , CopyTo, OverwriteExisting End If