Hola, en mi programa quiero reproducir un wav,
lo reproduce normalmente cuando lo pongo en
este destino: "mciExecute ("Play c:\windows
\dopasound.wav")"
pero no entiendo porque cuando lo pongo en:
"mciExecute ("Play C:\Archivos de programa
\Microsoft Visual Studio\VB98\dopasound.wav")"
me dice "El dispositivo especificado no esta
abierto o MCI no lo reconoce"
tambien me dice lo mismo cuando le pongo
"mciExecute "Play APP.PATH & \dopasound.wav"
Gracias.

o usa una variable de las ENVIRON()

OJO en ocasiones se pega la canción cuando estas en el IDE... Asegurate de usar el comando CLOSE cuando usas Alias en el MCI... yo habitualmente uso el Close de esta manera... inclusive no podrás editar/mover el recurso (mp3) si no se a invocado CLOSE

 
Option Explicit
 
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Const songPath As String = "D:\Miguel\Mi musica\(G) Mi disco\Z145 TODA LA NOCHE (barrio pobre).mp3"
 
Private Sub Form_Initialize()
    Debug.Print mciSendString("STOP ""BlackZeroX""", 0&, 0, 0) ' Por si se quedo pegada la cancion en el IDE, podemos usar CLOSE en lugar de STOP.
    Debug.Print mciSendString("OPEN """ & songPath & """ alias ""BlackZeroX""", 0&, 0, 0)
End Sub
 
Private Sub Form_Terminate()
    Debug.Print mciSendString("CLOSE ""BlackZeroX""", 0&, 0, 0) ' Liberamos el recurso...
End Sub
 
Private Sub Form_Load()
    Debug.Print mciSendString("PLAY ""BlackZeroX""", 0&, 0, 0)  ' Reproducimos el recurso.
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Debug.Print mciSendString("STOP ""BlackZeroX""", 0&, 0, 0)  ' No es necesario ya que el comando CLOSE lo "invoca"...
End Sub
 
 

Dulces Lunas!¡.