批處理如何建立多個快捷方式

[已解決]批處理如何建立多個快捷方式最后由珠七七于 -12-28 22:37想問一個建立快捷方式的問題,希望大家能為我解答一下.我的要求是從TXT文件中,如下

Softopera9.5 Alpha9562opera.exe
Other1.doc
Other2.txt
SoftMaxthonMaxthon.exe
nclick="copycode($('code0'));">復(fù)制代碼

把這4個路徑都建立快捷方式(分別為opera.lnk,1.lnk,2.lnk,Maxthon.lnk).盤符為批處理當(dāng)前的盤符.我查過Batch以前寫過的,但是對很多不懂,自己寫了一下,以下為代碼,事實是不行的.

@echo off
set vol=%~d0 ::獲取當(dāng)前盤符
set /a sum=0
::獲取需要建立快捷方式的路徑
for /f %%i in (*.txt) do (
set SrcFile=%vol%%%i
set LnkFile=%vol%%sum%
call :CreateShort %SrcFile% %LnkFile%
set /a sum=sum+1
)
goto :eof
::Arguments目標(biāo)程序參數(shù)
::Description快捷方式備注
::FullName 返回快捷方式完整路徑
::Hotkey 快捷方式快捷鍵
::IconLocation 快捷方式圖標(biāo)，不設(shè)則使用默認(rèn)圖標(biāo)
::TargetPath 目標(biāo)
::WindowStyle窗口啟動狀態(tài)
::WorkingDirectory 起始位置
:CreateShort
mshta VBscript:Execute(Set a=CreateObject(Wscript.Shell):Set b=a.CreateShortcut(%~2.lnk):b.TargetPath=%~1:b.WorkingDirectory=%
~dp1:b.Save:close)
nclick="copycode($('code1'));">復(fù)制代碼