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.