[文本处理] 批处理获取指定文件夹名如何改成自动获取名？

877

因每次都要修改文件夹为New，想改成自动获取是啥文件夹名，然后合并后的文件名也是文件夹名~

求大佬指教~

@if(0)==(0) echo off&setlocal EnableDelayedExpansion&cd %~dp0
title 获取"New"文件夹的MP4文件名合并视频
type nul>"%~dp0New\New.txt"
rem 列出文件名
cd "%~dp0New"
    @for /f "delims=" %%j in ('dir /b/a-d/on "*.mp4"^|cscript -nologo -e:jscript "%~f0"') do (
            echo;file %%j>>New.txt&echo; 合并文件 %%j
    )
    echo;& echo 即将合并视频为New.mp4
)
pause
rem 合并文件
ffmpeg -f concat -i New.txt -vcodec copy -acodec copy %~dp0New.mp4
    cls&echo 新文件保存路径%~dp0New.mp4&echo;
pause&exit /b
@end
 
var str=WScript.StdIn.ReadAll().split('\n')
str.sort(function(a,b){return a.length - b.length;})
WScript.Echo(str.join('\n'))
复制代码

czjt1234

把 New 都改成 %New%
Set "New=%~n0"
好像是这样

77七

@if(0)==(0) echo off
chcp 65001 >nul
cd /d "%~dp0"
for /d %%d in (*) do (
	pushd "%%d"
	(for /f "delims=" %%j in ('dir /b/a-d/on "*.mp4"^|cscript -nologo -e:jscript "%~f0"') do (
		echo;file %%j
	))>New.txt
	ffmpeg -f concat -safe 0 -i New.txt -vcodec copy -acodec copy "%~dp0%%~nxd.mp4"
	del New.txt
	popd
)
pause & exit
@end
 
var str=WScript.StdIn.ReadAll().split('\n')
str.sort(function(a,b){return a.length - b.length;})
WScript.Echo(str.join('\n'))
复制代码