Office中國論壇/Access中國論壇

標(biāo)題: 用代碼創(chuàng)建程序的快捷方式到桌面一法 [打印本頁]

作者: 咱家是貓    時間: 2010-1-28 11:26
標(biāo)題: 用代碼創(chuàng)建程序的快捷方式到桌面一法
本帖最后由 咱家是貓 于 2011-8-11 16:50 編輯

  1. Private Sub CreateShortCutOnDeskTop(ByVal Name As String, ByVal IconLocation As String)

  2. Dim x As New IWshRuntimeLibrary.IWshShell_Class
  3. Dim y As IWshRuntimeLibrary.IWshShortcut_Class
  4. Set y = x.CreateShortcut(x.SpecialFolders.Item("AllUsersDesktop") & "" & Name & ".lnk")
  5. y.TargetPath = CurrentProject.Path + "" & CurrentProject.Name
  6. y.IconLocation = IconLocation
  7. y.WorkingDirectory = CurrentProject.Path
  8. y.Save

  9. End Sub
復(fù)制代碼



作者: liaoqiang234    時間: 2010-1-28 12:00
前兩天已經(jīng)看到類似解決辦法,不知有何不同
作者: zxklzxm1983    時間: 2010-1-28 12:37
謝謝
作者: asklove    時間: 2010-1-28 13:34
看看,學(xué)學(xué)
作者: 82077802    時間: 2010-1-29 05:20
看看,學(xué)學(xué)
作者: c101    時間: 2010-1-30 00:57
謝謝
作者: kisssprite    時間: 2010-1-30 08:07
真是無所不能
作者: 沙漠孤鷹    時間: 2010-1-30 23:34
學(xué)習(xí)一下。
作者: yanwei82123300    時間: 2010-2-1 08:10
看看,學(xué)學(xué)
作者: 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,終于……沒有找到!
現(xiàn)在終于找到了,不過暫時沒有用到的地方,先收藏了再說,支持一下
另外用WSHShell的CreateShortcut方法也能創(chuàng)建快捷方式,此方法可以設(shè)置快捷方式的各種屬性,且無需引用
作者: tmtming    時間: 2010-2-4 23:14
謝謝分享好東西
作者: qmyjhj    時間: 2010-2-5 13:30
不是可以直接把窗體的快捷方式放到桌面的嗎
作者: xryacc2    時間: 2010-2-5 18:40
看看
作者: xryacc2    時間: 2010-2-5 19:01
都是高手,紅塵如煙先生 ,能否用你的方法做個例子,可指定圖標(biāo)(開發(fā)者)、可以設(shè)置屬性(比如備注、說明),不須要引用,代碼簡單等?謝謝!
作者: lilihuanlh    時間: 2010-2-7 00:47
謝謝分享
作者: gaoyh2008    時間: 2010-2-11 14:22
see see see
作者: zhao__feng    時間: 2010-2-11 19:06
看看,學(xué)學(xué)
作者: zqjie    時間: 2010-2-12 20:43
看看!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
作者: df    時間: 2010-2-13 10:54
謝謝分享
作者: 石三少    時間: 2010-2-24 09:30
看看
作者: wang1950317    時間: 2010-2-24 10:00
學(xué)習(xí)!
作者: amocvv    時間: 2010-3-14 02:29
直接發(fā)送比較適合我這種菜菜用
作者: sxb2007    時間: 2010-4-3 21:31
看看,學(xué)學(xué)
作者: danis    時間: 2010-4-7 22:37
不錯的方溘
作者: mrd_wxqs    時間: 2010-4-17 12:06
這個一直在找,謝謝樓主了!
作者: laiguiyou    時間: 2010-4-18 10:53
學(xué)習(xí)
作者: grq    時間: 2010-4-27 20:21
學(xué)習(xí)先
作者: iamee    時間: 2010-4-30 09:34
學(xué)習(xí)~~~
作者: ch_wang    時間: 2010-4-30 17:34
五一節(jié)快樂!。
作者: xingzhihao    時間: 2010-4-30 21:40
看看,學(xué)學(xué)
作者: wxrkz    時間: 2010-4-30 22:56
學(xué)習(xí)學(xué)習(xí)!謝謝!
作者: 真主    時間: 2010-5-1 16:44
謝謝,學(xué)習(xí)一下
作者: lurong    時間: 2010-5-1 18:41
謝謝
作者: li08hua    時間: 2010-5-2 00:40
學(xué)學(xué)習(xí)習(xí)
作者: lp2lp2    時間: 2010-5-2 13:29
頂一下
作者: sagemeyou    時間: 2010-5-6 08:25
學(xué)習(xí),
作者: 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
學(xué)習(xí)
作者: duomu    時間: 2010-7-21 08:27
看看

作者: 5988143    時間: 2010-7-21 09:15
學(xué)習(xí)技巧
作者: yzt2005    時間: 2010-7-21 10:21
看看,學(xué)學(xué)
作者: zhukaiqi11    時間: 2010-7-27 08:09
來看一下  貌似我也要做這個東西的
作者: hz3378531    時間: 2010-9-2 08:16
學(xué)習(xí)
作者: gaofei186    時間: 2010-9-2 08:17
看看一下
作者: hljthzbc    時間: 2010-9-2 08:19
用代碼創(chuàng)建程序的快捷方式到桌面一法
作者: 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
想學(xué)習(xí)
作者: elvira    時間: 2011-1-17 11:20
kankan
作者: cooljessie    時間: 2011-1-17 14:56
感謝分享,學(xué)習(xí)了~~
作者: 7032175    時間: 2011-1-21 18:42

作者: hezhiyee    時間: 2011-5-8 06:42
下來看看,學(xué)學(xué)

作者: xie62    時間: 2011-5-8 07:12
看看,學(xué)學(xué)
作者: wgh3g    時間: 2011-5-8 08:49
看看
作者: gxy1000    時間: 2011-5-8 10:18
看看信息
作者: 孤帆遠(yuǎn)影    時間: 2011-5-9 16:21
ding
作者: youchytan    時間: 2011-5-13 21:06
看看,學(xué)學(xué)
作者: qczvba    時間: 2011-5-14 10:29
謝版式主,想學(xué)習(xí)一下。
作者: qczvba    時間: 2011-5-14 10:31
版主總是照顧新人,很實(shí)際,再次感謝。
作者: caep4083    時間: 2011-5-15 21:33
學(xué)習(xí)一下

作者: 520saya    時間: 2011-5-16 10:04
good
作者: dearbear    時間: 2011-5-16 16:02
學(xué)習(xí)

作者: autoit    時間: 2011-5-28 11:15
謝謝分享!
作者: pwj2009    時間: 2011-5-28 13:57
學(xué)習(xí)下,這個功能不錯,!
作者: 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
學(xué)習(xí)一下。

作者: 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
看看,學(xué)學(xué)
作者: MYPCOO    時間: 2011-9-7 13:28
看看,學(xué)學(xué)
作者: breeze_wang    時間: 2011-9-7 13:56
這個可以自動創(chuàng)建嗎?
作者: 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
用代碼創(chuàng)建程序的快捷方式到桌面一法
作者: gzkrmch    時間: 2012-11-12 11:46
好東西
作者: liu_sqing    時間: 2012-11-13 11:13
學(xué)習(xí)
作者: huangli0356    時間: 2012-11-13 16:21
好家伙....
作者: fxbianxiu    時間: 2012-11-15 20:45
快捷方式,
作者: 小小白菜    時間: 2015-11-13 17:23
學(xué)習(xí)了
作者: xiaowuo2    時間: 2015-11-13 21:40
感謝分享,頂個
作者: lbl521    時間: 2015-11-13 22:09
期待




歡迎光臨 Office中國論壇/Access中國論壇 (http://ctxi.cn/) Powered by Discuz! X3.3