批处理实现批量创建快捷方式

Posted

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 ::(注:部分杀毒软件可能会报毒,请允许此程序的所有操作并添加信任)

 

以上是关于批处理实现批量创建快捷方式的主要内容,如果未能解决你的问题,请参考以下文章

在 Visual Studio 中创建构造函数的代码片段或快捷方式

Delphi创建Windows快捷方式

Delphi创建Windows快捷方式

如何用CMD命令批量复制快捷方式的源文件

Photoshop 批量处理图片

word批量转pdf文件快捷方法。

(c)2006-2024 SYSTEM All Rights Reserved IT常识