创建指定程序的桌面快捷方式--以记事本为例

Sub CreatShortCut() Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") Dim MyShortcut, MyDesktop, DesktopPath DesktopPath = WSHShell.SpecialFolders("Desktop") Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "/记事本快捷方式.lnk") With MyShortcut .TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%/notepad.exe") .WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%") .WindowStyle = 4 .IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%/notepad.exe, 0") .Save End With End Sub