Buscar dirreccion de archivo de sonido y luego reproducirlo

[renga73]

Lo q quiero hacer es, buscar un archivo .mp3 o wav, por medio del dir y file list box, una vez q lo tengo, luego al tildar un check me lo reproduzca.
El codigo para reproducir es este:
mciExecute ("Play Direccion_del.mp3")
El problema es como coloco la direccion q busque antes ahi adentro

[culd]

Supongamos que tenes un Boton, y un FileList, que se llama File1.

Código:

Private Sub Command1_Click()
Dim Ruta As String 'crear una variable RUTA
Ruta = File1.Path 'a la variable le asignas en que carpeta esta situado

If Right(Ruta, 1) <> "\" Then 'verifica si al final tiene \ si no lo tiene lo agrega
    Ruta = Ruta & "\"
End If

Ruta = Ruta & File1.FileName 'a la ruta que tenia, le agrega el nombre del archivo

mciExecute (Ruta)
End Sub

Si no sabes como linkear el DirFile y el FileList agrega esto en la propiedad change del Dir1

Código:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Espero que te sirva pichon.

[renga73]

Eso no me sirve porque acordate q para reproducir hay q poner
miExcecute ("Play ruta_del_mp3")

esta ese PLAY AHI y todo en comillas ya probe guardando la ruta en un laber y luego poner
"Play label1.caption" y tampoco y probe otras maneras mas y no anda

[wansoft]

Iniciado por renga73

"Play label1.caption" y tampoco y probe otras maneras mas y no anda

Lo correcto seria "PLAY " & label1.caption

[renga73]

Uhhh gracias wansoft sos un maestro, yo habia puesto "Play" & label1.caption, pero no me fije q hay q dejar un espacio en el "Play ".
Eso anda de 10, muchas gracias