@echo off
set/p mF="拖入一个媒体文件(查看其时长): "
if not defined mF exit/b
for %%F in (%mF%) do (set "pF=%%~dpF" & set "nF=%%~nxF")
for /f %%v in ('mshta vbscript:execute("set sa=createobject(""shell.application""):set objfolder=sa.namespace(""%pF%""):set op=objfolder.parsename(""%nF%""):createobject(""scripting.filesystemobject"").getstandardstream(1).write(objfolder.getdetailsof(op,27)):close"^)') do echo,%%v
pause&exit/b