用代码创建程序的快捷方式到桌面一法

咱家是猫 · 发表于 2010-1-28 11:26:07

本帖最后由咱家是猫于 2011-8-11 16:50 编辑

Private Sub CreateShortCutOnDeskTop(ByVal Name As String, ByVal IconLocation As String)
Dim x As New IWshRuntimeLibrary.IWshShell_Class
Dim y As IWshRuntimeLibrary.IWshShortcut_Class
Set y = x.CreateShortcut(x.SpecialFolders.Item("AllUsersDesktop") & "" & Name & ".lnk")
y.TargetPath = CurrentProject.Path + "" & CurrentProject.Name
y.IconLocation = IconLocation
y.WorkingDirectory = CurrentProject.Path
y.Save
End Sub

复制代码

游客，如果您要查看本帖隐藏内容请回复

liaoqiang234 · 发表于 2010-1-28 12:00:27

前两天已经看到类似解决办法，不知有何不同

zxklzxm1983 · 发表于 2010-1-28 12:37:41

谢谢

asklove · 发表于 2010-1-28 13:34:19

看看，学学

82077802 · 发表于 2010-1-29 05:20:41

看看，学学

c101 · 发表于 2010-1-30 00:57:59

谢谢

kisssprite · 发表于 2010-1-30 08:07:14

真是无所不能

沙漠孤鹰 · 发表于 2010-1-30 23:34:55

学习一下。

yanwei82123300 · 发表于 2010-2-1 08:10:41

看看，学学

goto2008 · 发表于 2010-2-4 16:08:55

谢谢大哥分享

帐号		自动登录	找回密码
密码			注册

[模块/函数] 用代码创建程序的快捷方式到桌面一法

群介绍
主题无相 (随机显示版	同地区群块其他地区)