本篇內容介紹了“如何創(chuàng)建快捷方式到自定義的位置”的有關知識,在實際案例的操作過程中,不少人都會遇到這樣的困境,接下來就讓小編帶領大家學習一下如何處理這些情況吧!希望大家仔細閱讀,能夠學有所成!
創(chuàng)新互聯(lián)建站主要業(yè)務有網(wǎng)站營銷策劃、網(wǎng)站設計、成都網(wǎng)站設計、微信公眾號開發(fā)、成都小程序開發(fā)、HTML5、程序開發(fā)等業(yè)務。一次合作終身朋友,是我們奉行的宗旨;我們不僅僅把客戶當客戶,還把客戶視為我們的合作伙伴,在開展業(yè)務的過程中,公司還積累了豐富的行業(yè)經(jīng)驗、網(wǎng)絡營銷推廣資源和合作伙伴關系資源,并逐漸建立起規(guī)范的客戶服務和保障體系。把如下代碼內容保存為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
“如何創(chuàng)建快捷方式到自定義的位置”的內容就介紹到這里了,感謝大家的閱讀。如果想了解更多行業(yè)相關的知識可以關注創(chuàng)新互聯(lián)網(wǎng)站,小編將為大家輸出更多高質量的實用文章!