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

咱家是猫 · 发表于 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

复制代码

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

niculas · 发表于 2024-8-6 15:50:00

咱家的猫就是厉害

qqacc · 发表于 2017-12-16 22:05:39

学习学习，谢谢分享
来自: 微社区

打字比你快 · 发表于 2017-12-15 15:59:27

回复看看

a2512055321 · 发表于 2017-12-2 13:02:26

看看

shixm_1 · 发表于 2017-4-29 14:39:18

谢谢，学习学习

koutx · 发表于 2017-4-28 10:20:13

留存备用,谢版主

xlb004 · 发表于 2017-4-27 17:55:42

YyyyuuU

ha0148 · 发表于 2017-4-10 16:44:32

这个要看看

bilibi丶污妖王 · 发表于 2017-4-10 12:45:42

eeeeeeeeeeeeeeee

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

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

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