carlos95
28 de Noviembre del 2005

Hola estoy tratando de hacer un reproductor de video con los componentes Drive, Dir, File para WindowsMediaPlayer, pero no puedo reproduccirlo este es el siguiente codigo:

Private Sub dirCarpeta_Change()
filArchivo.Path = dirCarpeta.Path
End Sub

Private Sub drvDisco_Change()
On Error GoTo errFallo
dirCarpeta.Path = drvDisco.Drive
Exit Sub
drvDisco.Drive = "c:"
End Sub

Private Sub filArchivo_DblClick()
On Error GoTo errFallo
wmpReprod.openPlayer (filArchivo.Path & "" & filArchivo.FileName)
Exit Sub
End Sub

Pero no me lo quiere previsualizar, encambio en el componente Ole1 - Pelicula de video-; si me lo visualiza bien.

Me podria corregir en el problema que tengo.
Gracias.