设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 24839|回复: 112

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

[复制链接]
发表于 2010-1-28 11:26:07 | 显示全部楼层 |阅读模式
本帖最后由 咱家是猫 于 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
复制代码

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x

评分

参与人数 1经验 +6 收起 理由
5988143 + 6 我很赞同

查看全部评分

发表于 2010-1-28 12:00:27 | 显示全部楼层
前两天已经看到类似解决办法,不知有何不同
发表于 2010-1-28 12:37:41 | 显示全部楼层
谢谢
发表于 2010-1-28 13:34:19 | 显示全部楼层
看看,学学
发表于 2010-1-29 05:20:41 | 显示全部楼层
看看,学学
发表于 2010-1-30 00:57:59 | 显示全部楼层
谢谢
发表于 2010-1-30 08:07:14 | 显示全部楼层
真是无所不能
发表于 2010-1-30 23:34:55 | 显示全部楼层
学习一下。
发表于 2010-2-1 08:10:41 | 显示全部楼层
看看,学学
发表于 2010-2-4 16:08:55 | 显示全部楼层
谢谢大哥分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 20:15 , Processed in 0.099783 second(s), 39 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表