在 VBScript 中读取音乐文件长度

我只是想知道是否有一种方法可以通过 VBScript 将 mp3 文件的长度以秒为单位获取到变量中。

（改编自我的答案关于 JScript 的类似问题。）

您可以使用GetDetailsOfWindows Shell 的方法Folder对象获取音频文件长度。此技术支持所有音频文件类型，其元数据可以由 Windows 资源管理器本机读取和显示。

但请注意，不同 Windows 版本上的 Length 属性索引有所不同：在 Windows XP/2003 上为 21，在 Windows Vista+ 上为 27。看这一页 and 这是我的回答了解详情。您需要在脚本中考虑到这一点。

示例代码：

Const LENGTH = 27 ' Windows Vista+
' Const LENGTH = 21 ' Windows XP

Dim oShell  : Set oShell  = CreateObject("Shell.Application")
Dim oFolder : Set oFolder = oShell.Namespace("C:\Music")
Dim oFile   : Set oFile   = oFolder.ParseName("Track.mp3")

Dim strLength : strLength = oFolder.GetDetailsOf(oFile, LENGTH)

WScript.Echo strLength

输出示例：

00:05:18