- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]有没有什么命令可以将拷贝文件后进行粘贴快捷方式的操作？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40711)
-- 发布时间：2013/9/27 10:11:00
-- [求助]有没有什么命令可以将拷贝文件后进行粘贴快捷方式的操作？
如题，我想将文件拷贝后，在另一个文件夹中粘贴其快捷方式，而非粘贴文件本身。不知有没有什么方法实现？
帮助里提到的文件命令好像只能粘贴或移动文件。
-- 发布时间：2013/9/27 10:31:00
--
Dim wsh As Object = CreateObject("WScript.Shell")
Dim desk As String = wsh.SpecialFolders("Desktop")
Dim lnk As Object = wsh.CreateShortcut(desk & "\\test.lnk")
With lnk
.Arguments = "/?" \'传递参数
.Description = "描述"
.Ic \'调用dll资源内的图标
.TargetPath = "D:\\test.jpg" \'文件路径
.WorkingDirectory = Application.StartupPath \'工作路径
.Save() \'保存快捷方式
End With
-- 发布时间：2013/9/27 10:35:00
--
论坛会和谐,我给你发记事本吧
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
-- 发布时间：2013/9/27 10:38:00
--
谢谢BIN。
还有个问题，有没有直接取文件名后缀的方法？
-- 发布时间：2013/9/27 10:44:00
--
直接取文件名最后一个.开始切割不就好了吗
-- 发布时间：2013/9/27 10:45:00
--
哦，这样操作的，会了。