黑松山资源网 Design By www.paidiu.com
在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
黑松山资源网 Design By www.paidiu.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
黑松山资源网 Design By www.paidiu.com
暂无评论...
更新日志
2024年06月17日
2024年06月17日
- 成龙《成龙歌曲合集》[320K/MP3][222.9MB]
- 赵一豪1996-直接爱恨[台湾首版][WAV+CUE]
- 十八一心童声合唱团《佛声童音·菩提里的向日葵》2CD[低速原抓WAV+CUE]
- 【吉他天碟】卡洛斯·蒙托亚《从圣路易斯到塞维利亚》2014[FLAC+CUE整轨]
- 蔡依林《呸》[FLAC][255M]
- 郑源《郑源歌曲合集》[320K/MP3][190.4MB]
- 群星《第一诱惑Ⅱ》黑胶CD[正版CD原抓WAV+CUE][646M]
- 荷兰二人跳舞组合双人无极(2Unlimited)无损合集51CD
- 克里司亭迪奥-毒药【WAV+CUE】
- 法国浪漫小号JeanClaudeBorelly《LAmourAuGrandSoleil(爱在阳光下)》》[WAV]\
- 张小英1988-精选集VOL.1[日本版][WAV+CUE]
- 王心凌《天国的嫁衣电视原声带》[低速原抓WAV分轨]
- 王心凌《Begin》超值珍藏版CD+VCD[低速原抓WAV+CUE]
- 群星《红星音乐十周年纪念特辑》[WAV+CUE][657M]
- 谭咏麟《24KGold金藏集》4CD[WAV+CUE][2.2G]