Office中国论坛/Access中国论坛

标题: 用代码创建程序的快捷方式到桌面一法 [打印本页]

作者: 咱家是猫 时间: 2010-1-28 11:26
标题: 用代码创建程序的快捷方式到桌面一法
本帖最后由咱家是猫于 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
前两天已经看到类似解决办法，不知有何不同

作者: zxklzxm1983 时间: 2010-1-28 12:37

谢谢

作者: asklove 时间: 2010-1-28 13:34
看看，学学

作者: 82077802 时间: 2010-1-29 05:20
看看，学学

作者: c101 时间: 2010-1-30 00:57
谢谢

作者: kisssprite 时间: 2010-1-30 08:07
真是无所不能

作者: 沙漠孤鹰 时间: 2010-1-30 23:34
学习一下。

作者: yanwei82123300 时间: 2010-2-1 08:10
看看，学学

作者: goto2008 时间: 2010-2-4 16:08
谢谢大哥分享

作者: t小宝 时间: 2010-2-4 16:22
猫兄对VBS也很精通呀

作者: 红尘如烟 时间: 2010-2-4 22:54
本帖最后由红尘如烟于 2010-2-4 23:07 编辑

记得五百年前我找啊找、找啊找，找了long long long time，终于……没有找到！
现在终于找到了，不过暂时没有用到的地方，先收藏了再说，支持一下

另外用WSHShell的CreateShortcut方法也能创建快捷方式，此方法可以设置快捷方式的各种属性，且无需引用

作者: tmtming 时间: 2010-2-4 23:14
谢谢分享好东西

作者: qmyjhj 时间: 2010-2-5 13:30
不是可以直接把窗体的快捷方式放到桌面的吗

作者: xryacc2 时间: 2010-2-5 18:40
看看

作者: xryacc2 时间: 2010-2-5 19:01
都是高手，红尘如烟先生，能否用你的方法做个例子，可指定图标（开发者）、可以设置属性（比如备注、说明），不须要引用，代码简单等？谢谢！

作者: lilihuanlh 时间: 2010-2-7 00:47
谢谢分享

作者: gaoyh2008 时间: 2010-2-11 14:22
see see see

作者: zhao__feng 时间: 2010-2-11 19:06
看看，学学

作者: zqjie 时间: 2010-2-12 20:43
看看!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

作者: df 时间: 2010-2-13 10:54
谢谢分享

作者: 石三少 时间: 2010-2-24 09:30
看看

作者: wang1950317 时间: 2010-2-24 10:00
学习！

作者: amocvv 时间: 2010-3-14 02:29
直接发送比较适合我这种菜菜用

作者: sxb2007 时间: 2010-4-3 21:31
看看，学学

作者: danis 时间: 2010-4-7 22:37
不错的方溘

作者: mrd_wxqs 时间: 2010-4-17 12:06
这个一直在找，谢谢楼主了！

作者: laiguiyou 时间: 2010-4-18 10:53
学习

作者: grq 时间: 2010-4-27 20:21
学习先

作者: iamee 时间: 2010-4-30 09:34
学习~~~

作者: ch_wang 时间: 2010-4-30 17:34
五一节快乐！！！

作者: xingzhihao 时间: 2010-4-30 21:40
看看，学学

作者: wxrkz 时间: 2010-4-30 22:56
学习学习!谢谢!

作者: 真主 时间: 2010-5-1 16:44
谢谢，学习一下

作者: lurong 时间: 2010-5-1 18:41
谢谢

作者: li08hua 时间: 2010-5-2 00:40
学学习习

作者: lp2lp2 时间: 2010-5-2 13:29
顶一下

作者: sagemeyou 时间: 2010-5-6 08:25
学习，

作者: xiazaidj 时间: 2010-5-6 08:48
必须拿下,拿分+拿作品

作者: ludaddy 时间: 2010-5-11 21:25
不错的想法

作者: GAOZHONG 时间: 2010-5-15 21:27
看下

作者: ouyhe 时间: 2010-5-25 16:05
dssssssssssssss

作者: ybsnryga 时间: 2010-7-5 20:58
tttttttttttttttttttttt

作者: dbbygzy 时间: 2010-7-6 08:09
xuexi

作者: df 时间: 2010-7-13 22:06
谢谢分享

作者: li08hua 时间: 2010-7-21 02:44
学习

作者: duomu 时间: 2010-7-21 08:27
看看

作者: 5988143 时间: 2010-7-21 09:15
學習技巧

作者: yzt2005 时间: 2010-7-21 10:21
看看，学学

作者: zhukaiqi11 时间: 2010-7-27 08:09
来看一下貌似我也要做这个东西的

作者: hz3378531 时间: 2010-9-2 08:16
学习

作者: gaofei186 时间: 2010-9-2 08:17
看看一下

作者: hljthzbc 时间: 2010-9-2 08:19
用代码创建程序的快捷方式到桌面一法

作者: fcghw 时间: 2010-12-10 02:23
谢谢分享

作者: xiaozhengang 时间: 2011-1-6 20:39
真是无所不能

作者: 鱼儿游游 时间: 2011-1-7 16:19
谢谢分享

作者: fine88888888 时间: 2011-1-8 08:49
正需要

作者: nu-zai 时间: 2011-1-10 12:52
dsafadsfasd

作者: 大胆 时间: 2011-1-11 00:11
想学习

作者: elvira 时间: 2011-1-17 11:20
kankan

作者: cooljessie 时间: 2011-1-17 14:56
感谢分享，学习了~~

作者: 7032175 时间: 2011-1-21 18:42

作者: hezhiyee 时间: 2011-5-8 06:42
下来看看，学学

作者: xie62 时间: 2011-5-8 07:12
看看，学学

作者: wgh3g 时间: 2011-5-8 08:49
看看

作者: gxy1000 时间: 2011-5-8 10:18
看看信息

作者: 孤帆远影 时间: 2011-5-9 16:21
ding

作者: youchytan 时间: 2011-5-13 21:06
看看，学学

作者: qczvba 时间: 2011-5-14 10:29
谢版式主，想学习一下。

作者: qczvba 时间: 2011-5-14 10:31
版主总是照顾新人，很实际，再次感谢。

作者: caep4083 时间: 2011-5-15 21:33
学习一下

作者: 520saya 时间: 2011-5-16 10:04
good

作者: dearbear 时间: 2011-5-16 16:02
学习

作者: autoit 时间: 2011-5-28 11:15
谢谢分享!

作者: pwj2009 时间: 2011-5-28 13:57
学习下，这个功能不错，！

作者: huang1314 时间: 2011-5-28 15:52
这个要得

作者: hxn 时间: 2011-5-28 17:51
study

作者: sblisb 时间: 2011-5-28 20:50
真的什么都可以做呀？

作者: daxin1 时间: 2011-5-28 21:00
非常感谢版主

作者: mr.chen 时间: 2011-5-31 13:11
学习一下。

作者: HOCKHE 时间: 2011-8-17 12:59
看看效果

作者: 冚友 时间: 2011-8-19 21:49
谢谢

作者: jinzhanxi 时间: 2011-8-20 11:12
谢谢分享

作者: licongli 时间: 2011-8-23 08:34
thank you!

作者: loyasunny 时间: 2011-8-25 00:32
支持一下看看~~~~~~~~~~~~~~

作者: yhf 时间: 2011-8-25 10:41
看看，学学

作者: MYPCOO 时间: 2011-9-7 13:28
看看，学学

作者: breeze_wang 时间: 2011-9-7 13:56
这个可以自动创建吗？

作者: ysh5858 时间: 2011-9-11 23:48
谢谢分享·！

作者: stzd 时间: 2011-9-30 23:40
谢谢

作者: efcndi 时间: 2011-11-24 10:52
看看

作者: benli7600689 时间: 2012-11-2 08:04
我也正需要这个

作者: ALUZER 时间: 2012-11-2 17:58
用代码创建程序的快捷方式到桌面一法

作者: gzkrmch 时间: 2012-11-12 11:46
好东西

作者: liu_sqing 时间: 2012-11-13 11:13
学习

作者: huangli0356 时间: 2012-11-13 16:21
好家伙....

作者: fxbianxiu 时间: 2012-11-15 20:45
快捷方式，

作者: 小小白菜 时间: 2015-11-13 17:23
学习了

作者: xiaowuo2 时间: 2015-11-13 21:40
感谢分享，顶个

作者: lbl521 时间: 2015-11-13 22:09
期待

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)