批处理实现批量创建快捷方式
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了批处理实现批量创建快捷方式相关的知识,希望对你有一定的参考价值。
功能:自动读取./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 ::(注:部分杀毒软件可能会报毒,请允许此程序的所有操作并添加信任)
加强版:可配置快捷方式名称(因为相同目录可能被拷贝多份)
./dir.txt内容如下:(第一列为指定的快捷方式名称,中间以“:”隔开,后跟具体路径名,注意:冒号两边不能加空格)
运行前目录:
运行后目录:
批处理代码如下:
1 @echo off
2
3 color 0a
4 title 自动创建文件目录快捷方式
5
6 ::设置变量延迟
7 setlocal EnableDelayedExpansion
8
9 for /f "delims=: tokens=1,*" %%a in (./dir.txt) do (
10 set LinkName=%%a.lnk
11 set ThePath=%%b
12 mshta VBScript:Execute("Set Shell=CreateObject(""WScript.Shell""):Set Link=Shell.CreateShortcut(""!LinkName!""):Link.TargetPath=""!ThePath!"":Link.Save:close"^)
13 )
14
15 echo 创建完成!按任意键退出
16 pause>nul
17
18 ::说明:复制以上代码到文本文档中,保存为.bat文件,点击直接运行即可自动读取./dir.txt中每行目录(可以是可访问的网络磁盘目录),并在当前目录下创建该目录的快捷方式
19 ::(注:部分杀毒软件可能会报毒,请允许此程序的所有操作并添加信任)
以上是关于批处理实现批量创建快捷方式的主要内容,如果未能解决你的问题,请参考以下文章