vbscript - 在 VBScript 中读取音乐文件长度

Question

我只是想知道是否有办法通过 VBScript 在几秒钟内将 mp3 文件的长度转换为变量。

Answer 1

(改编自 my answer 到一个关于 JScript 的类似问题。)

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

但是，请注意 Length 属性的索引在不同的 Windows 版本上是不同的:在 Windows XP/2003 上为 21，在 Windows Vista+ 上为 27。有关详细信息，请参阅 this page 和 this my answer。您需要在脚本中考虑到这一点。

示例代码:

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