Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to Create Shortcuts/Get Desktop Folder
Message
From
14/01/2004 12:44:02
 
 
To
14/01/2004 11:21:21
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00866766
Message ID:
00866824
Views:
19
>Does any one know how to create a windows shortcut programatically?
>
>And along with that determine the Desktop folder to save it into?
>
>Thanks.
>
Hi Bob;

Helped by George (and Franco) I found this one, that can do what you want:

(With WSH only)
oShell           = CREATEOBJECT("WScript.Shell")
oFso             = CreateObject("Scripting.FileSystemObject")
cwdesktopfolder  = oShell.SpecialFolders("Desktop")

lnk              = oShell.CreateShortcut(cwdesktopfolder + "\Shortcut to my application.lnk")
lnk.TargetPath   = "c:\myfolder\myapp.exe"
lnk.WindowStyle  = 1
lnk.Hotkey       = "CTRL+SHIFT+F"
lnk.IconLocation = "c:\myfolder\myapp.exe, 0"
lnk.Description  = "Shortcut to my application"
lnk.WorkingDirectory = "c:\myfolder"
lnk.Save
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform