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