标签：
功能：自动读取./dir.txt文件中配置的每行目录，并在当前目录下创建该目录的快捷方式（目录可以是可访问的网络磁盘目录，此功能可以取代网络磁盘映射，特别适用于网络磁盘映射太多，而虚拟网络磁盘驱动器数量不足的情况）
注意：批处理中的for循环中的语句会被解析为一条语句执行，所以必须适用变量延迟才能保证数据的正确性，同时，for循环中的右括号要启用转义
测试：
./dir.txt内容如下：
运行前目录：
运行后目录：
1 @echo off
2
3 color 0a
4 title 自动创建文件目录快捷方式
5
6 ::设置变量延迟
7 setlocal EnableDelayedExpansion
8
9 for /f "tokens=*" %%a in (./dir.txt) do (
10 set ThePath=%%a
11
12 for %%b in (%%a) do (
13 set LinkName=%%~nxb.lnk
14
15 mshta VBScript:Execute("Set Shell=CreateObject(""WScript.Shell""):Set Link=Shell.CreateShortcut(""!LinkName!""):Link.TargetPath=""!ThePath!"":Link.Save:close"^)
16
17 )
18 )
19
20 echo 创建完成！按任意键退出
21 pause>nul
22
23 ::说明：复制以上代码到文本文档中，保存为.bat文件，点击直接运行即可自动读取./dir.txt中每行目录，并在当前目录下创建该目录的快捷方式
24 ::(注：部分杀毒软件可能会报毒，请允许此程序的所有操作并添加信任）
标签：
原文地址：http://www.cnblogs.com/dongsheng/p/5359270.html
