右键发送(sendto)，创建快捷方式到自定义的位置 的vbs
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 在SendTo文件夹里加上一文件夹的快捷方式后，在右键发送到这个文件夹的是这些文件的一个副本，实际上是一个复制的过程，有时候我们只希望是快捷方式，那就得另想办法了。 把如下代码内容保存为shortcut.vbs，然后创建快捷方式到sendto目录下（C:\DocumentsandSettings\username\SendTo），改个自己想要的名字，如“创建快捷方式到我的工作目录”，即可实现创建快捷方式了，而且支持多文件，只需要把脚本中第4行中的的strFolder改成自己需要的值： SetunNamedArguments=WScript.Arguments.UnNamed setWshShell=WScript.CreateObject("WScript.Shell") SetobjFSO=CreateObject("Scripting.FileSystemObject") strFolder="d:\temp\"’后面要有符号"\" forcount=0towscript.arguments.count-1Step1 filename=unNamedArguments.Item(count) SetobjFile=objFSO.GetFile(filename) setoShellLink=WshShell.CreateShortcut(strFolder&objFSO.GetBaseName(filename)&".lnk") oShellLink.TargetPath=filename oShellLink.WindowStyle=1 oShellLink.WorkingDirectory=objFSO.GetParentFolderName(filename) oShellLink.Save NEXT |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于右键发送(sendto)，创建快捷方式到自定义的位置 的vbs的所有评论
