My program toggles an existing IE add-on between enabled and disabled. At the same time, it creates a shortcut to itself in the Quick Launch folder using one of two icons which reflect whether the next click is a toggle on or toggle off. I store the two icons in the same folder as the targeted executable, and everything works fine, but I would rather have these two files embedded. I know how to embed them. The problem is locating them. At the moment I use:
Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut
MyShortcut = WshShell.CreateShortcut(QuickLaunchVariable & "\Toggle.lnk")
MyShortcut.TargetPath = path/executable
MyShortcut.IconLocation = path/iconfile
MyShortcut.IconLocation requires a string and I don't know how to get to the location of an embedded file as a string. There is no MyShortcut.Icon which would allow me to simply refer to the embedded file.
Dim MyShortcut As IWshRuntimeLibrary.IWshShortcut
MyShortcut = WshShell.CreateShortcut(QuickLaunchVariable & "\Toggle.lnk")
MyShortcut.TargetPath = path/executable
MyShortcut.IconLocation = path/iconfile
MyShortcut.IconLocation requires a string and I don't know how to get to the location of an embedded file as a string. There is no MyShortcut.Icon which would allow me to simply refer to the embedded file.