在此之前我一直为如何为工程自动创建快捷方式而苦恼。最近查阅了不少资料,在网上东搜搜,西搜搜。现在把我的收获与大家分享。需要说明的是,这些只是给同我一样的菜鸟级参考的。如果有错误,请多指教哦!
为工程自动创建快捷方式有多种,如API函数、自动起用WIN的创建快捷方式向导等。但我比较来,比较去,觉得还是以下方法既简单有效、又易于理解。
首先在工程的引用中选中Windows Scripting Host Object Model
Option Explicit
Private Sub Command1_Click()
Dim WSH_shell, urlLink, deskPath
Set WSH_shell = New IWshShell_Class
deskPath = WSH_shell.SpecialFolders("Desktop") '获得桌面路径
Set urlLink = WSH_shell.CreateShortcut(deskPath & "\你的EXE文件名.lnk")
With urlLink
.TargetPath = "你的EXE文件名(含路径和后缀.exe)"
.IconLocation = "图标文件路径"-----也可以不要
.Hotkey = "CTRL+SHIFT+D"’设置热键
.WorkingDirectory = "EXE文件的路径" '设置起始位置
.WindowStyle = WshNormalFocus
'可以设的值有WshHide、WshMaximizedFocus、WshMinimizedFocus、
'WshMinimizedNoFocus、WshNormalFocus、WshNormalNoFocus
End With
urlLink.Save '保存快捷方式
End Sub
很简单的代码,却能设置热键、快捷方式、窗口运行模式等。