Function mciExecute
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
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
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
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