Windows 8.1 批处理更改文件标题信息为文件名

@echo off $SETLOCAL
for %%i in ("E:\MUSIC\temp\*.MP3") do (
	set dp=%%~dpi
	set nx=%%~nxi
	set x=%%~xi
	CALL:processFile "%%~i"
)
goto:eof

:processFile
SETLOCAL
:loop
mshta vbscript:Execute("Set sh=CreateObject(""Shell.Application""):Set d=sh.NameSpace(""%dp%""):Set i=d.ParseName(""%nx%""):i.Name=d.GetDetailsOf(i,21)&""%x%""")(close)
ENDLOCAL
goto:eof

MP3文件部分详细信息与相应数字(更多):

1 Size    13 Contributing artists    20 Authors    14 album    21 title