在批处理中如何读取mp3,wma文件中的艺术家,标题,大小等 - 中国DOS联盟论坛

我知道这个得用VBS，转3742668版主的：

    arrFile = MyGetFile()
Set oShell = CreateObject("Shell.Application")
Set oDir = oShell.NameSpace(arrFile(1) + "\")
Set oFile = oDir.ParseName(arrFile(0))
For i = 0 To 100
    sTmp = oDir.GetDetailsOf(,i) + vbTab
    If sTmp = vbTab Then Exit For
    sPrint = sPrint + vbCrLf + sTmp + vbTab + _
                 oDir.GetDetailsOf(oFile,i)
Next
WScript.Echo sPrint

Set oFile = Nothing
Set oDir = Nothing
Set oShell = Nothing

'***********************************************************************************
'获得要操作的文件,返回一个包含文件名和路径的数组
'***********************************************************************************
Function MyGetFile()

On Error Resume Next
Dim strFile,objFso,objFile
    If WScript.Arguments.Count < 1 Then
        Set objDialog = CreateObject("UserAccounts.CommonDialog")
        objDialog.Filter = "mp3 文件|*.mp3|wma 文件|*.wma|wav 文件|*.wav|所有 文件|*.*"
        objDialog.ShowOpen
        strFile = objDialog.FileName
        Set objDialog = Nothing
    Else
        strFile = WScript.Arguments(0)
    end if
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.GetFile(strFile)
    If Err Then 
        If Err.Number = 5 Then WScript.Quit
        WScript.Echo Err.Description 
        Err.Clear
        WScript.Quit
    Else
        MyGetFile = Array(objFile.Name,objFile.ParentFolder)
    End If
    
Set objFile = Nothing
Set objFso = Nothing

End Function

第1楼　hmily88	发表于 2008-04-21 01:38
初级用户　发帖 29　积分 111
在批处理中如何读取mp3,wma文件中的艺术家,标题,大小等在批处理中如何读取mp3,wma文件中的艺术家,标题,大小等属性,并加载到变量以供后续调用!!! 希望各位达人不要吝啬赐教,谢谢,在线等... [ Last edited by hmily88 on 2008-4-21 at 07:12 AM ]

第2楼　PPdos	发表于 2008-04-21 04:59
高级用户　发帖 268　积分 783
可以求教vbs高手来做如果批处理，借助第三方工具 Dos下的mp3播放器(不支持中文) http://upload.cn-dos.net/img/313.rar 也可以借助以下链接 http://www.damp-mp3.co.uk/

第3楼　hmily88	发表于 2008-04-21 07:03
初级用户　发帖 29　积分 111
我只希望能读取相应的属性赋值给变量,至于播放还是调用外部程序执行.... 急啊...

第4楼　plp626	发表于 2008-05-13 17:05
银牌会员　发帖 1,020　积分 2,278
我知道这个得用VBS，转3742668版主的： arrFile = MyGetFile() Set oShell = CreateObject("Shell.Application") Set oDir = oShell.NameSpace(arrFile(1) + "\") Set oFile = oDir.ParseName(arrFile(0)) For i = 0 To 100 sTmp = oDir.GetDetailsOf(,i) + vbTab If sTmp = vbTab Then Exit For sPrint = sPrint + vbCrLf + sTmp + vbTab + _ oDir.GetDetailsOf(oFile,i) Next WScript.Echo sPrint Set oFile = Nothing Set oDir = Nothing Set oShell = Nothing '********************************************************************************* '获得要操作的文件,返回一个包含文件名和路径的数组 '********************************************************************************* Function MyGetFile() On Error Resume Next Dim strFile,objFso,objFile If WScript.Arguments.Count < 1 Then Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "mp3 文件\|.mp3\|wma 文件\|.wma\|wav 文件\|.wav\|所有文件\|.*" objDialog.ShowOpen strFile = objDialog.FileName Set objDialog = Nothing Else strFile = WScript.Arguments(0) end if Set objFso = CreateObject("Scripting.FileSystemObject") Set objFile = objFso.GetFile(strFile) If Err Then If Err.Number = 5 Then WScript.Quit WScript.Echo Err.Description Err.Clear WScript.Quit Else MyGetFile = Array(objFile.Name,objFile.ParentFolder) End If Set objFile = Nothing Set objFso = Nothing End Function

第5楼　hmily88	发表于 2008-05-13 17:40
初级用户　发帖 29　积分 111
哇！，看来得好好学习了，太强.....了