右键发送(sendto)，创建快捷方式到自定义的位置的vbs

更新时间：2007年03月15日 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

您可能感兴趣的文章:

VBS教程：方法-ReadLine 方法
VBS教程：方法-ReadLine 方法...
2006-11-11
VBS教程：函数-LTrim、RTrim 和 Trim 函数
VBS教程：函数-LTrim、RTrim 和 Trim 函数...
2006-11-11
VBS教程：方法-GetFolder 方法
VBS教程：方法-GetFolder 方法...
2006-11-11
把vbscript发挥到它的极限应用之一(数组)！！！
把vbscript发挥到它的极限应用之一(数组)！！！...
2007-05-05
Win7下VHD文件右键增强实现代码(vbs+注册表)
这篇文章主要介绍了Win7下VHD文件右键增强的实现方法，需要的朋友可以参考下
2013-07-07
VBS教程：方法-Execute 方法
VBS教程：方法-Execute 方法...
2006-11-11
VBS基础篇 - VBScript过程（使用sub 与 Function定义函数）
在 VBScript 中，过程被分为两类：Sub 过程和 Function 过程,需要的朋友可以参考下
2018-05-05
VBS读取注册表的两种方法
有时候我们需要用vbs来操作注册表，一般情况下有两种方法，一种是通过wshshell对象的regread，另外一种是使用WMI操作注册表，下面简单的介绍下
2013-09-09
vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,
vbscript和javascript版的15位, 18位的身份证号码的验证函数.以及根据身份证取省份,生日,性别
2007-04-04
VBS教程：函数-Eval 函数
VBS教程：函数-Eval 函数...
2006-11-11