右键发送(sendto)，创建快捷方式到自定义的位置
更新时间：2007年03月05日 00:00:00 作者：
在SendTo文件夹里加上一文件夹的快捷方式后，在右键发送到这个文件夹的是这些文件的一个副本，实际上是一个复制的过程，有时候我们只希望是快捷方式，那就得另想办法了。
把如下代码内容保存为shortcut.vbs，然后创建快捷方式到sendto目录下（C:\Documents and Settings\username\SendTo），改个自己想要的名字，如“创建快捷方式到我的工作目录”，即可实现创建快捷方式了，而且支持多文件，只需要把脚本中第4行中的的strFolder改成自己需要的值：
Set unNamedArguments = WScript.Arguments.UnNamed
set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "d:\temp\" '后面要有符号"\"
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.Save
NEXT
把如下代码内容保存为shortcut.vbs，然后创建快捷方式到sendto目录下（C:\Documents and Settings\username\SendTo），改个自己想要的名字，如“创建快捷方式到我的工作目录”，即可实现创建快捷方式了，而且支持多文件，只需要把脚本中第4行中的的strFolder改成自己需要的值：
复制代码 代码如下:
Set unNamedArguments = WScript.Arguments.UnNamed
set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "d:\temp\" '后面要有符号"\"
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.Save
NEXT
相关文章
Excel 中将数值转换为英文单词2009-08-08
一个可以隐藏任务栏图标的脚本，方便需要隐藏任务栏图标的朋友2008-06-06
经常地，当我们编写代码时，我们需要根据不同的判断执行不同操作，我们可以使用条件语句完成这个工作，asp中的条件语句主要是if与Select Case这里就为大家介绍一下,需要的朋友可以参考下2018-05-05
vbscript的骨灰级写法计算1到100的和的代码,实现的比较不错2012-05-05
VBS教程：方法-GetTempName 方法...2006-11-11
用vbs对文本文件的内容进行排序...2007-04-04
VBS教程：函数-Date 函数...2006-11-11
这篇文章主要介绍了对一个vbs脚本病毒的病毒原理分析的相关资料,非常不错，具有参考借鉴价值，需要的朋友可以参考下2016-09-09
返回基于0的一维数组,其中包含指定树木的子字符串.下面的例子,将字符串以&为标记分割开来2006-11-11
用vbs实现压缩文件夹的代码，可以压缩文件夹，减少文件占用体积2008-06-06
最新评论