Buenas reproduzco un archivo de musica .mp3 con el siguiente codigo en un modulo:
Cita: Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
en el form lo siguiente:
Cita: Private Sub Command1_Click()
iRESULT = mciExecute("Play C:\lola.mp3")
End Sub
ESTO FUNCIONA PERFECTO PERO:
mi duda es que he puesto en el proyecto un commondialog para examinar y elegir otro archivo de musica distinto y la ruta meterla en una variable, pero me da un error de
Cita: EL DISPOSITIVO ESPECIFICADO NO ESTA ABIERTO O MCI NO LO RECONOCE
ALGO ASI:
Cita: Public music As String
Private Sub menuexaminaraudio_Click()
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.InitDir = "%userprofile%\Mis documentos"
CommonDialog1.ShowOpen
music = CommonDialog1.FileName
aqui la variable music recoge la ruta elegida del archivo musica, pero me sale el error antes mencionado ALGUIEN SABE COMO HACERLO FUNCIONAR DESDE UNA VARIABLE??
Private Sub Command1_Click()
iRESULT = mciExecute("Play " & music) '---->he probado esto pero da error.
End Sub
gracias.salu2