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

最新推荐文章于 2020-12-23 22:09:39 发布

foreverfall

最新推荐文章于 2020-12-23 22:09:39 发布

阅读量2k

点赞数

分类专栏： EXCEL VBA

EXCEL VBA 专栏收录该内容

17 篇文章 0 订阅

订阅专栏

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