7,759
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command2_Click()
'引用windows scripting host object model
Dim WSH As WshShell
Dim Urllink As WshShortcut
Dim DeskPath As String
Dim lnkName As String
Set WSH = New WshShell
DeskPath = WSH.SpecialFolders("Desktop") '获得桌面路径
'得到快捷方式
lnkName = Dir(DeskPath & "\*.lnk")
Debug.Print lnkName
While Len(lnkName)
Debug.Print lnkName
lnkName = Dir
Wend
'可以用wsh_shell.expandenvironmentstrings("%windir%")获得windows路径
Set Urllink = WSH.CreateShortcut(DeskPath & "\Test.lnk")
With Urllink
.TargetPath = "d:\test.txt" '目标
.IconLocation = WSH.ExpandEnvironmentStrings _
("%SystemRoot%\system32\SHELL32.dll,70") '图标,可以是自己的ico
.Hotkey = "ctrl+shift+F" '快捷键
.WorkingDirectory = "d:\" '起始位置
.WindowStyle = 1 '运行方式
.Description = "备注备注备注备注备注" '备注
.Arguments = StrArg '参数
End With
Urllink.Save '保存快捷方式
' '添加到桌面
'lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")
''添加到程序组
'lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")
''添加到启动组
'lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")
End Sub