您好,登錄后才能下訂單哦!
這篇文章主要介紹了如何使用vbs右鍵發(fā)送sendto以及創(chuàng)建快捷方式到自定義的位置,具有一定借鑒價值,感興趣的朋友可以參考下,希望大家閱讀完這篇文章之后大有收獲,下面讓小編帶著大家一起了解一下。
在SendTo文件夾里加上一文件夾的快捷方式后,在右鍵發(fā)送到這個文件夾的是這些文件的一個副本,實際上是一個復(fù)制的過程,有時候我們只希望是快捷方式,那就得另想辦法了。
把如下代碼內(nèi)容保存為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
感謝你能夠認(rèn)真閱讀完這篇文章,希望小編分享的“如何使用vbs右鍵發(fā)送sendto以及創(chuàng)建快捷方式到自定義的位置”這篇文章對大家有幫助,同時也希望大家多多支持億速云,關(guān)注億速云行業(yè)資訊頻道,更多相關(guān)知識等著你來學(xué)習(xí)!
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報,并提供相關(guān)證據(jù),一經(jīng)查實,將立刻刪除涉嫌侵權(quán)內(nèi)容。