Reproductor MP3

[truskyvb]

He encontrado este módulo en la red (yo no sabría hacerlo) que ha sido la solución.

Module1

Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Function Archivo_Temporal() As String
Dim sSave As String, hOrgFile As Long, hNewFile As Long, bBytes() As Byte
Dim sTemp As String, nSize As Long, Ret As Long
sTemp = String(260, 0)
GetTempFileName Environ("temp"), "TTT", 0, sTemp
Archivo_Temporal = Left$(sTemp, InStr(1, sTemp, Chr$(0)) - 1)
End Function


Function Cargar(ID As Integer) As String
Path = Archivo_Temporal
Dim aDatos() As Byte

' lee los datos en el array de bytes
aDatos = LoadResData(ID, "CUSTOM")

' abre un archivo para escribir los datos en modo binario
Open Path For Binary Access Write As #1

' escribe el array de bytes para
Put #1, , aDatos
' cierra el fichero
Close

Cargar = Path

End Function


En mi código:

mmcMP3.FileName = Cargar (102 ó 101....)

Y ya se puede tener más de una canción.
De todas formas, si hay alguna idea mejor, os agradecería me la dijeseis.

Espero que le sirva a alguien.

Muchas gracias.
Un saludo.