[已解决]批处理如何建立多个快捷方式？

珠七七

想问一个建立快捷方式的问题,希望大家能为我解答一下.
我的要求是从TXT文件中,如下

1. 
   
2. \Soft\opera9.5 Alpha9562\opera.exe
   
3. \Other\1.doc
   
4. \Other\2.txt
   
5. \Soft\Maxthon\Maxthon.exe
   

复制代码

把这4个路径都建立快捷方式(分别为opera.lnk,1.lnk,2.lnk,Maxthon.lnk).盘符为批处理当前的盘符.
我查过Batch以前写过的,但是对很多不懂,自己写了一下,以下为代码,事实是不行的.

1. 
   
2. @echo off
   
3. set vol=%~d0 ::获取当前盘符
   
4. set /a sum=0
   
5. ::获取需要建立快捷方式的路径
   
6. for /f %%i in (*.txt) do (
   
7. set SrcFile=%vol%%%i
   
8. set LnkFile=%vol%\%sum%
   
9. call :CreateShort "%SrcFile%" "%LnkFile%"
   
10. set /a sum=sum+1
    
11. )
    
12. 
    
13. goto :eof
    
14. 
    
15. ::Arguments              目标程序参数
    
16. ::Description            快捷方式备注
    
17. ::FullName               返回快捷方式完整路径
    
18. ::Hotkey                 快捷方式快捷键
    
19. ::IconLocation           快捷方式图标，不设则使用默认图标
    
20. ::TargetPath             目标
    
21. ::WindowStyle            窗口启动状态
    
22. ::WorkingDirectory       起始位置
    
23. 
    
24. :CreateShort
    
25. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~2.lnk""):b.TargetPath=""%~1"":b.WorkingDirectory=""%
    
26. 
    
27. ~dp1"":b.Save:close")
    

复制代码

我对set /a sum=sum+1的用法不太懂,而且建立后的快捷方式也不知道怎么获取到名字.
如果TXT中只有1个路径的话,快捷方式建立是成功的,但是多个就不行了.希望高人能帮我看看.

hwliu11

纯粹用批处理没法完成，得借助VBS完成
set /a sum=sum+1意思是将sum的值加一，/a参数指定后边是个数学表达式，而不是赋值之类的

awk

回复 2# hwliu11


楼主这不是已经把BAT代码贴出来了嘛

fanfanxiao

受益匪浅！！！！！