作者：绿色风
分类：
时间：2022-08-17
浏览：88
楼主
kevinchengcw |
Q: 如何用vba代码为选定程序文件创建发送到文件夹快捷方式？
A: 代码如下：
- Sub test()
- Dim Fil$, RegPath$, Path$, Lnk$
- On Error GoTo Skip '设置出错跳转位置
- Fil = Application.GetOpenFilename("程序文件,*.exe") '选择打开的程序文件
- With CreateObject("wscript.shell") '创建WSH项目
- RegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\SendTo" '设定注册表路径，用于读取SendTo目录位置
- Path = .regread(RegPath) '读取路径位置
- Lnk = Left(Split(Fil, "\")(UBound(Split(Fil, "\"))), Len(Split(Fil, "\")(UBound(Split(Fil, "\")))) - 3) & "Lnk" '设定快捷方式名（去除扩展名后的文件名）
- With .createshortcut(Path & "\" & Lnk) '创建快捷方式并设置各项属性
- .targetpath = Fil '指定快捷方式指向文件
- .windowstyle = 1 '指定窗体类型
- .iconlocation = Fil & ",0" '指定图标索引
- .Save '储存设定
- End With
- End With
- Exit Sub
- Skip:
- MsgBox "出错退出"
- End Sub
|
2楼
eliane_lei |
 进来学习,谢谢分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一