批处理之家 - Powered by Discuz! Board

标题: [文本处理] [已解决]批处理如何建立多个快捷方式？ [打印本页]

作者: 珠七七 时间: 2011-12-10 18:52 标题: [已解决]批处理如何建立多个快捷方式？

本帖最后由珠七七于 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个路径的话,快捷方式建立是成功的,但是多个就不行了.希望高人能帮我看看.

作者: hwliu11 时间: 2011-12-10 22:44

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

作者: awk 时间: 2011-12-28 23:12

回复 2# hwliu11

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

作者: fanfanxiao 时间: 2011-12-29 18:10

受益匪浅！！！！！

欢迎光临批处理之家 (http://www.bathome.net/)

Powered by Discuz! 7.2