批处理之家 - Powered by Discuz! Board

标题: [文件操作] 【已解决】如果批量新建指定路径文件夹并生成路径方式用一个命令实现？ [打印本页]

作者: 228630386 时间: 2021-10-13 17:53 标题: 【已解决】如果批量新建指定路径文件夹并生成路径方式用一个命令实现？

本帖最后由 228630386 于 2021-10-20 13:55 编辑

请教如何将批量新建指定路径的文件夹，然后在运行命令的文件夹中批量创建快捷文式，用一个命令完成？
实际路径会很多，分开操作有点麻烦，能否实现每次只更新或者粘贴路径到命令里运行即可，如在2021.10.13文件夹中运行。

路径以下：
D:\任务\原图\李宁\2021.10.13 （10.19）李宁专场男童 (林先生、陈**) -2
D:\任务\原图\MICHAEL KORS\2021.10.13 （10.19）MICHAEL KORS专场平面 (林先生) -3
D:\任务\原图\哥伦比亚\2021.10.13 ①（10.19）哥伦比亚男女运动专场白底配件 (邓先生) -19
D:\任务\原图\UNDER ARMOUR\2021.10.13 ②（10.16）UNDER ARMOUR专场白底鞋子 (陈先生) -2

作者: went 时间: 2021-10-13 22:40

文件夹名中不能出现通配符 '*'

@echo off & cd /d "%~dp0"
REM 管理员权限
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","REM",,"runas",1)(window.close)&exit
REM 创建文件夹快捷方式
for /f "delims=:" %%i in ('findstr /b /n /C:":list" "%~0"') do (
	for /f "delims=" %%a in ('more +%%i "%~0"') do (
		mkdir "%%~a"
		mklink /d "%%~nxa" "%%~a"
		echo ---------------
	)
)
pause&exit

REM 文件夹列表
:list
D:\任务\原图\李宁\2021.10.13 （10.19）李宁专场 男童 (林先生、陈**) -2
D:\任务\原图\MICHAEL KORS\2021.10.13 （10.19）MICHAEL KORS专场 平面 (林先生) -3
D:\任务\原图\哥伦比亚\2021.10.13 ①（10.19）哥伦比亚男女运动专场 白底 配件 (邓先生) -19
D:\任务\原图\UNDER ARMOUR\2021.10.13 ②（10.16）UNDER ARMOUR专场 白底 鞋子 (陈先生) -2
复制代码

作者: 228630386 时间: 2021-10-14 09:49

回复 2# went

非常感谢，文件夹可以自动新建，但快捷方式没有管理者权限，还有其它方法吗？

作者: went 时间: 2021-10-15 13:30

回复 3# 228630386

第三行就是提权，没作用就尝试下右键管理员身份运行

作者: 228630386 时间: 2021-10-15 14:23

回复 4# went

电脑都被限制了，都没有管理员权限的，是否就不能批量建了？

作者: went 时间: 2021-10-15 21:25

本帖最后由 went 于 2021-10-15 21:31 编辑

回复 5# 228630386

试试javascript会不会限制
ansi编码, test.js

var list = function(){/*
D:\任务\原图\李宁\2021.10.13 （10.19）李宁专场 男童 (林先生、陈) -2
D:\任务\原图\MICHAEL KORS\2021.10.13 （10.19）MICHAEL KORS专场 平面 (林先生) -3
D:\任务\原图\哥伦比亚\2021.10.13 ①（10.19）哥伦比亚男女运动专场 白底 配件 (邓先生) -19
D:\任务\原图\UNDER ARMOUR\2021.10.13 ②（10.16）UNDER ARMOUR专场 白底 鞋子 (陈先生) -2
*/};
var arr = list.toString().split('\r\n').slice(1,-1);
var shell = new ActiveXObject('Wscript.Shell');
for(var index in arr){
	//初始化
	var dir_path = arr[index];
	var lnk_name = dir_path.split('\\').slice(-1)[0] + '.lnk';
	//创建文件夹
	shell.Run('cmd /c mkdir "' + dir_path + '"',0,true);
	//创建快捷方式
	var shortcut = shell.CreateShortcut(lnk_name);
	shortcut.TargetPath = dir_path;
	shortcut.Save();
}
复制代码

作者: 228630386 时间: 2021-10-19 09:58

回复 6# went

也是另存为.bat吗？运行后没有反应，新建文件夹也不行了。

作者: went 时间: 2021-10-19 18:55

回复 7# 228630386

.js

作者: 228630386 时间: 2021-10-20 13:53

回复 8# went

可以了，非常感谢！

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