newswan

没有处理秒
将文件夹拖到bat上，显示正确，去掉 ren 前的 echo

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

set folder=%1

pushd %folder%
set/a time=0
for /f "usebackq" %%a in (` dir /b *.mkv `) do (
	for /f "usebackq tokens=2,3 delims=: " %%i in (` "ffprobe.exe %%a 2>&1 | findstr Duration" `) do (
		set /a time+=%%i*60+%%j
	)
)
popd

echo ren %folder% %folder%[%time%]

pause
exit/b
复制代码

newswan

回复 3# qd2024


将文件夹拖到bat上
或者 手动设置 folder 变量

newswan

路径有空格？

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

set folder=%~1

set ffPath=D:\Program Files

pushd "%folder%"

set/a time=0
for /f "usebackq" %%a in (` dir /b *.mkv `) do (
	for /f "usebackq tokens=2,3 delims=: " %%i in (` ""%ffpath%\ffprobe.exe" %%a 2>&1 | findstr Duration" `) do (
		set /a time+=%%i*60+%%j+1
	)
)
echo %time%

popd

echo ren "%folder%" "%folder%[%time%]"

pause
exit/b
复制代码

newswan

ai 给了一个直接获取时长的方法

ffprobe -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 input.mp4
30.024000
复制代码

newswan

文件名可能有空格

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

set folder=%~1

set ffPath=D:\Program Files

pushd "%folder%"

set/a time=0
for /f "usebackq tokens=* delims=" %%a in (` dir /b *.mkv `) do (
	for /f "usebackq tokens=2,3 delims=: " %%i in (` ""%ffpath%\ffprobe.exe" "%%a" 2>&1 | findstr Duration" `) do (
		set /a time+=%%i*60+%%j+1
	)
)
echo %time%

popd

echo ren "%folder%" "%folder%[%time%]"

pause
exit/b
复制代码

newswan

回复 16# qd2024

不好意思，没有实际运行，忘记了 ren 不能用全路径
用了两种方法

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

set ffPath=D:\Program Files

set folderPath=%~dp1
set folderName=%~nx1

pushd "%folderPath%\%folderName%"

set/a time=0
for /f "usebackq tokens=* delims=" %%a in (` dir /b *.mkv `) do (
	for /f "usebackq tokens=1,2 delims=." %%i in (`" "%ffpath%\ffprobe.exe" -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 "%%a" "`) do (
		set/a time+=%%i
	)
)
set/a time/=60
echo %time%

set/a time=0
for /f "usebackq tokens=* delims=" %%a in (` dir /b *.mkv `) do (
	for /f "usebackq tokens=2,3,4 delims=:. " %%i in (` ""%ffpath%\ffprobe.exe" "%%a" 2>&1 | findstr Duration" `) do (
		set /a time+=%%i*3600+%%j*60+%%k
	)
)
set/a time/=60
echo %time%

popd

pushd "%folderPath%"
echo ren "%folderName%" "%folderName%[%time%]"
popd

pause
exit/b
复制代码

newswan

没下载你的文件，太大，用自己的文件测试了可行

newswan

回复 15# qd2024

以0开头的数字

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
chcp 936

set ffPath=D:\Program Files

set folderPath=%~dp1
set folderName=%~nx1


pushd "%folderPath%\%folderName%"

echo "--1--"
set time=0
for /f "usebackq tokens=* delims=" %%a in (` dir /b *.mp4 `) do (
	for /f "usebackq" %%i in (`" "%ffpath%\ffprobe.exe" -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 "%%a" "`) do (
		set time=!time! + %%i
	)
)
for /f "usebackq" %%a in (` powershell -command " [math]::Ceiling( (%time%) / 60 ) " `) do (
	set time=%%a
)
echo %time%

echo "--2--"
set/a time=0
for /f "usebackq tokens=* delims=" %%a in (` dir /b *.mp4 `) do (
	for /f "usebackq tokens=1,2 delims=." %%i in (`" "%ffpath%\ffprobe.exe" -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 "%%a" "`) do (
		set/a time+=%%i
	)
)
set/a time/=60
set/a q=%time%%60
if %q% gtr 0 (set/a time+=1)
echo %time%

echo "--3--"
set/a time=0
for /f "usebackq tokens=* delims=" %%a in (` dir /b *.mp4 `) do (
	for /f "usebackq tokens=2,3,4 delims=:. " %%i in (` ""%ffpath%\ffprobe.exe" "%%a" 2>&1 | findstr Duration" `) do (
		set/a time+=1%%i*3600+1%%j*60+1%%k-100*3600-100*60-100
	)
)
set/a time/=60
set/a q=%time%%60
if %q% gtr 0 (set/a time+=1)
echo %time%

popd

pushd "%folderPath%"
echo ren "%folderName%" "%folderName%[%time%]"
popd

pause
exit/b
复制代码

newswan

回复 23# qd2024

这个涉及到一个问题，仅本文件夹？包含子文件夹

newswan

明白，还有个问题，上面是每个文件夹时长总和去整。不是每个视频时长去整再想加

newswan

回复 27# aloha20200628

各人习惯，不调用 find 比较好
或者用 vbs 计算也好，powershell 慢，但是我对 vbs 不太明白。

newswan

回复 29# aloha20200628

支持哪些媒体文件？

newswan

支持多级文件夹

@echo off
setlocal ENABLEDELAYEDEXPANSION
chcp 936

set ffPath=D:\Program Files

set folderPath=%~dp1
set folderName=%~nx1

pushd "%folderPath%"

call :C_get-Duration "%folderName%" time

popd

pause
exit/b

Usage: %0 <folder> <return:duration>
:C_get-Duration
setlocal

set folderName=%~1
pushd "%folderName%"
set/a level+=1

echo,
echo ----  %level%  %CD%  ----

set timeSubfolderAll=0
for /f "usebackq tokens=* delims=" %%a in (` 2^>nul dir /b /ad . `) do (
	echo "%%a"
	if not "%%a" == "" (
		call :C_get-Duration "%%a" timeSubfolder
		set/a timeSubfolderAll+=!timeSubfolder!
	)
)

echo "--1--"
set time=0
for /f "usebackq tokens=* delims=" %%a in (` 2^>nul dir /b *.mp4 `) do (
	for /f "usebackq" %%i in (`" "%ffpath%\ffprobe.exe" -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 "%%a" "`) do (
		set time=!time! + %%i
	)
)
for /f "usebackq" %%a in (` powershell -command " [math]::Ceiling( (%time%) / 60 ) " `) do (
	set time=%%a
)
echo %time%

echo "--2--"
set/a time=0
for /f "usebackq tokens=* delims=" %%a in (` 2^>nul dir /b *.mp4 `) do (
	for /f "usebackq tokens=1,2 delims=." %%i in (`" "%ffpath%\ffprobe.exe" -v error -show_entries format=duration -of default=noprint_wrappers=1:nokey=1 "%%a" "`) do (
		set/a time+=%%i
	)
)
set/a time/=60
set/a q=%time%%60
if %q% gtr 0 (set/a time+=1)
echo %time%

echo "--3--"
set/a time=0
for /f "usebackq tokens=* delims=" %%a in (` 2^>nul dir /b *.mp4 `) do (
	for /f "usebackq tokens=2,3,4 delims=:. " %%i in (` ""%ffpath%\ffprobe.exe" "%%a" 2>&1 | findstr Duration" `) do (
		set/a time+=1%%i*3600+1%%j*60+1%%k-100*3600-100*60-100
	)
)
set/a time/=60
set/a q=%time%%60
if %q% gtr 0 (set/a time+=1)
echo %time%
set/a time+=%timeSubfolderAll%

popd
set/a level-=1
echo,
echo ----  %level%  %CD%  ----
echo ren "%folderName%" "%folderName%[%time%]"
echo,
(
endlocal
set %2=%time%
)

goto :eof
复制代码

newswan

第二种比较合适这个需求