¿Cómo lee VB la información de la etiqueta de un archivo MP3, por ejemplo, cómo detectar el nombre del cantante, el título de la canción y el nombre del álbum en los atributos de la etiqueta de un archivo MP3?

Opción explícita

Obtiene el archivo sobre el que operar y devuelve una matriz que contiene el nombre del archivo y la ruta.

Función MyGetFile()

Continuar con el siguiente paso si ocurre un error

Dim strFile, objFso, objFile, objDialog

set objDialog = CreateObject( "cuentas de usuario.CommonDialog")

ObjDialog. filter = " Archivo MP3 | * . MP3 | Archivo WMA | *. wma | archivos wav | *. wav | todos los archivos | *. * "

objDialog. ShowOpen

strFile = objDialog. Nombre de archivo

Establecer objDialog = Nothing

Establecer objFso = CreateObject("Script.Filesystem Object")

Establecer objFile = objFso. GetFile(strFile)

Si hay error, entonces

Si hay error. número = 5 y luego descargo mi error

MsgBox. Descripción

Eh. Borrar

Descargarme

Otro

MyGetFile = Array(objFile. Name, objFile. ParentFolder)

Si... end

Establecer objFile = Nada

Establecer objFso = Nada

Finalizar función

Subform_Load privado()

Dim arrFile(), oFile, oDir, oShell

Dim i, sTmp, sPrint

arrFile = MyGetFile()

Set oShell = CreateObject("Shell. Aplicación")

Establezca oDir = oShell. Namespace(arrFile(1) "\ ")

Establecer oFile = oDir. ParseName(arrFile(0))

Para i = 0 a 100

sTmp = oDir. GetDetailsOf(, i) vbTab

Si sTmp = vbTab, salga de For

sPrint = sPrint vbCrLf sTmp vbTab_

Odile. obtener detalles de (del archivo, I)

Luego

MsgBox sPrint

Fileset=None

Establecer oDir=None

Establecer oShell = Nada

Conector final