Function mciExecute

antonela
22 de Julio del 2005
hola tengo un problema con esta funcion

audio = App.Path + "a.mp3"
iResult = mciExecute("Play " + audio)

funciona si el paht es c: pero si coloco los archivos en por ejemplo c:mi musica me da error

me dice que el fichero espesificado no esta abierto o mci no los reconoce.... si alguien sabe como solucionar este problema



el codigo completo es el siguiente

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Dim iResult As Long
Dim audio As String

Private Sub Command1_Click()
audio = App.Path + "a.exe"
iResult = mciExecute("Play " + audio)
End Sub

Private Sub Command2_Click()
iResult = mciExecute("stop " & audio)

End Sub

Private Sub Form_Load()
audio = App.Path & "A.mp3"
End Sub



gracias

antonela
22 de Julio del 2005
perdon el codigo es asi

Option Explicit
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Dim iResult As Long
Dim audio As String

Private Sub Command1_Click()
audio = App.Path + "a.mp3"
iResult = mciExecute("Play " + audio)
End Sub

Private Sub Command2_Click()
iResult = mciExecute("stop " & audio)

End Sub

Private Sub Form_Load()
audio = App.Path & "A.mp3"
End Sub

y por mas que coloque antes de
iResult = mciExecute("Play " + audio)
coloque esto
iResult = mciExecute("Open" + audio)

me da el mismo error