• 全部
  • 问答

个性化右键-->发送到---遇到的问题

zedan 2006-08-04 02:31:55
在SendTo文件夹里加上C:/MyTool文件夹的快捷方式后,在右键发送到的确有了这个选项,但发送到到这个文件夹的是某个文件的一个副本,但如果我想得到的只是快捷方式的话,该怎样做?
比如我在D:/MyMusic文件夹里右键选中a.mp3,将其发送到C:/MyTool,这样C:/MyTool就有了这个a.mp3,但我想得到的不是这样,我想得到的是在C:/MyTool里放上a.mp3的快捷方式而已,怎样做???
...全文
123 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ccnp_Server 2006-08-04
好,谢谢啊!
回复
scz123 2006-08-04
把如下内容保存为shortcut.vbs,然后创建快捷方式到sendto下,改个自己想要的名字,如“创建快捷方式到MYTOOL”:

Set unNamedArguments = WScript.Arguments.UnNamed

set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

strFolder = "C:\MyTool\"
for count = 0 to wscript.arguments.count-1 Step 1
filename = unNamedArguments.Item(count)
Set objFile = objFSO.GetFile(filename)
set oShellLink = WshShell.CreateShortcut(strFolder & objFSO.GetBaseName(filename) & ".lnk")
oShellLink.TargetPath = filename
oShellLink.WindowStyle = 1
'oShellLink.IconLocation = "notepad.exe, 0"
'oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = objFSO.GetParentFolderName(filename)
oShellLink.Save
NEXT
回复
zedan 2006-08-04
楼上的,那个脚本怎样做啊?
回复
scz123 2006-08-04
做个脚本可以实现
回复
相关推荐
发帖
Windows Server
创建于2007-08-02

6604

社区成员

Windows 2016/2012/2008/2003/2000/NT
申请成为版主
帖子事件
创建了帖子
2006-08-04 02:31
社区公告
暂无公告