右鍵發(fā)送(sendto)，創(chuàng)建快捷方式到自定義的位置
更新時間：2007年03月05日 00:00:00 作者：
在SendTo文件夾里加上一文件夾的快捷方式后，在右鍵發(fā)送到這個文件夾的是這些文件的一個副本，實際上是一個復制的過程，有時候我們只希望是快捷方式，那就得另想辦法了。
把如下代碼內容保存為shortcut.vbs，然后創(chuàng)建快捷方式到sendto目錄下（C:\Documents and Settings\username\SendTo），改個自己想要的名字，如“創(chuàng)建快捷方式到我的工作目錄”，即可實現(xiàn)創(chuàng)建快捷方式了，而且支持多文件，只需要把腳本中第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，然后創(chuàng)建快捷方式到sendto目錄下（C:\Documents and Settings\username\SendTo），改個自己想要的名字，如“創(chuàng)建快捷方式到我的工作目錄”，即可實現(xiàn)創(chuàng)建快捷方式了，而且支持多文件，只需要把腳本中第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可以做什么的簡單說明...2007-11-11
不錯的，讀取網(wǎng)頁的代碼，更多功能，可以自行研究了。2009-04-04
最近需要訪問google聯(lián)盟后臺，但經(jīng)常無法訪問，看到有網(wǎng)友提供了一份vbs版本的獲取host并保存到指定目錄的代碼，特分享下2014-12-12
VBS教程：VBScript 語句-Set 語句...2006-11-11
NYboy.vbs病毒源代碼公布，我來模擬熊貓燒香...2007-03-03
利用vbscript的for命令實現(xiàn)定時關機...2007-12-12
VBS教程：VBscript語句-Do...Loop 語句...2006-11-11
為大家介紹vbs屬性之size屬性，供大家學習參考。Size 屬性 對于文件，返回指定文件的字節(jié)數(shù)；對于文件夾，返回該文件夾中所有文件和子文件夾的字節(jié)數(shù)2014-05-05
VBS教程：VBScript 語句-Public 語句...2006-11-11
使用 Iisext.vbs 刪除 Web 服務擴展文件的方法
這篇文章主要介紹了如何使用 iisext.vbs 從本地或遠程計算機上刪除 Web 服務擴展文件,需要的朋友可以參考下2014-07-07