本帖最后由 珠七七 于 2011-12-28 22:37 编辑
想问一个建立快捷方式的问题,希望大家能为我解答一下.
我的要求是从TXT文件中,如下- \Soft\opera9.5 Alpha9562\opera.exe
- \Other\1.doc
- \Other\2.txt
- \Soft\Maxthon\Maxthon.exe
把这4个路径都建立快捷方式(分别为opera.lnk,1.lnk,2.lnk,Maxthon.lnk).盘符为批处理当前的盘符.
我查过Batch以前写过的,但是对很多不懂,自己写了一下,以下为代码,事实是不行的.- @echo off
- set vol=%~d0 ::获取当前盘符
- 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 目标程序参数
- ::Description 快捷方式备注
- ::FullName 返回快捷方式完整路径
- ::Hotkey 快捷方式快捷键
- ::IconLocation 快捷方式图标，不设则使用默认图标
- ::TargetPath 目标
- ::WindowStyle 窗口启动状态
- ::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")
我对set /a sum=sum+1的用法不太懂,而且建立后的快捷方式也不知道怎么获取到名字.
如果TXT中只有1个路径的话,快捷方式建立是成功的,但是多个就不行了.希望高人能帮我看看. | 
发表于 2011-12-10 18:52
| 
