Где-то у меня был код,с помощью которого тэги читались.А вообще,есть очень простой способ это сделать(может,даже без лишних функций).Ни за что не догадаешься...Сдаёшься?Так вот,этот способ-скачать документацию по интересующим тебя форматам:)

Цитировать

0 спам

5.9K

27 июня 2007 года

SPB-667

119 / / 23.06.2007

Тогда вопрос в догонку: где можно скачать документацию, напрмер по MP3-файлам? Но было бы здорово, если бы ты всё-таки откопал у себя этот код! :rolleyes:

Цитировать

0 спам

405

27 июня 2007 года

Dmitrii

554 / / 16.12.2004

Цитата: SPB-667

Поскажите пожалуйста, с помощью каких функций и констант можно извлечь (присвоить) теги из аудио файлов (-ам)?

Не знаю, что такое "теги из аудиофайлов", но если это свойства, хранящие информацию о названии записи, длительности её звучания и т.п., то могу предложить вот такой сценарий:

Свернуть исходник

Код:

'Получение расширенного списка свойств для заданного файла

Dim propNames(40), propValues(40)

Dim objFS, objShell, objFolder, objItem

Dim nameFolder, nameItem

nameFolder = "C:\Temp\"

nameItem = "abba.mp3"

Set objFS = CreateObject("Scripting.FileSystemObject")

If objFS.FileExists(nameFolder & nameItem) Then

    Set objShell = CreateObject("Shell.Application")

    Set objFolder = objShell.Namespace(nameFolder)

    Set objItem = objFolder.Items.Item(nameItem)

    lstProperties = vbNullString

    For i = LBound(propNames) To UBound(propNames)

        propNames(i) = objFolder.GetDetailsOf(objFolder.Items, i)

        propValues(i) = objFolder.GetDetailsOf(objItem, i)

        lstProperties = lstProperties & i & ": " & propNames(i) & " = " & propValues(i) & vbCr

    Next

    Set objItem = Nothing

    Set objFolder = Nothing

    Set objShell = Nothing

    WScript.Echo lstProperties

Else

    WScript.Echo "Заданный файл не обнаружен."

End If

Set objFS = Nothing