创建单个文档的快捷方式
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
页:
[1]