创建单个文档的快捷方式

清风明月10

Public Function 创建单个文档的快捷方式(文档完整名称, 快捷方式文件完整名称)
'注意，如果本身就是“.lnk”格式即快捷方式文件，运行本自定义函数会产生错误，即快捷方式文件不能利用该自定义函数生成新的快捷方式文件
Dim WshShell As Object, oShellLink As Object
    Set WshShell = CreateObject("WScript.Shell")
    Set oShellLink = WshShell.CreateShortcut(快捷方式文件完整名称) '这是指定快捷方式文件的完整名称 '快捷方式保存路径及名称。'常见的特殊文件夹（[桌面]Desktop；[程序菜单]Programs；[启动]Startup；[开始菜单]Start Menu；[收藏夹]Favorites；）
     oShellLink.TargetPath = 文档完整名称  '指定快捷方式的目标文件
    oShellLink.WindowStyle = 1          '窗口状态/运行方式'快捷方式的运行方式（默认参数1常规窗口，参数3最大化激活，参数7最小化）。
    'oShellLink.Hotkey = "CTRL+SHIFT+F"  '打开该文件的快捷键
    'oShellLink.IconLocation = "explorer.exe, 0"    '指定一个图标
    'oShellLink.Description = "这是一个快捷方式" '这是备注
    'oShellLink.WorkingDirectory = WshShell.SpecialFolders("Desktop") '快捷方式的起始位置。“目标”是要调用执行的程序，“起始位置”是该程序执行或要调用数据的位置，一般没用
    oShellLink.Save    '保存
    创建单个文档的快捷方式 = ""
    End Function