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

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