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

最新推荐文章于 2021-07-28 04:17:48 发布

转载最新推荐文章于 2021-07-28 04:17:48 发布 · 2.1k 阅读

EXCEL VBA 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一个使用VBA编写的子程序，用于在Windows系统的桌面创建记事本的快捷方式。

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