右键发送(sendto),创建快捷方式到自定义的位置
来源:互联网 发布:北京网络工程公司 编辑:程序博客网 时间:2024/06/04 19:51
在SendTo文件夹里加上一文件夹的快捷方式后,在右键发送到这个文件夹的是这些文件的一个副本,实际上是一个复制的过程,有时候我们只希望是快捷方式,那就得另想办法了。
把如下代码内容保存为shortcut.vbs,然后创建快捷方式到sendto目录下(C:/Documents and Settings/username/SendTo),改个自己想要的名字,如“创建快捷方式到我的工作目录”,即可实现创建快捷方式了,而且支持多文件,只需要把脚本中第4行中的的strFolder改成自己需要的值。
Set unNamedArguments = WScript.Arguments.UnNamedset WshShell = WScript.CreateObject("WScript.Shell")Set objFSO = CreateObject("Scripting.FileSystemObject")strFolder = "F:\si\myTools\" '后面要有符号"\"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.WorkingDirectory = objFSO.GetParentFolderName(filename) oShellLink.SaveNEXT
- 右键发送(sendto),创建快捷方式到自定义的位置
- 右键发送(sendto),创建快捷方式到自定义的位置
- Windows7 创建右键发送到桌面的快捷方式
- 为Win7 Win8右键菜单"发送到"添加常用位置(SendTo)
- 为Win7 Win8右键菜单"发送到"添加常用位置(SendTo)
- 右键发送到"桌面快捷方式"等没了的解决办法
- 将应用程序的快捷方式添加到右键“发送到”菜单中
- 桌面的快捷方式右键点击没有“打开”,开头是发送到
- Windows8.1自定义右键发送到菜单
- 在IE网页右键中添加“创建到桌面快捷方式”
- 怎样添加发送到--------------SendTo文件夹
- win7发送到(SendTo)菜单项修改
- 如何把UltraEDIT 添加到右键打开的快捷方式
- 右键菜单“发送到”的修改
- inno setup创建的快捷方式的起始位置的问题
- 创建自定义的Flash Player右键菜单
- NSIS创建快捷方式增加起始位置的解决教程
- 创建快捷方式到[启动]
- maven新建一个工程
- hibernate对email的验证
- 腾讯微信技术总监周颢:一亿用户增长背后的架构秘密 逻辑性很强 读后感
- CDOJ 1528 BG
- XBMC研究之web server
- 右键发送(sendto),创建快捷方式到自定义的位置
- 收集一些新婚祝词(成语)
- XBMC研究之json使用
- NOSQL学习
- tomcat配置数据源
- 一些VC的快捷键以及调试方法技巧
- ovirt项目相关
- HTML框架
- 什么时候