Tengo un programa que utiliza el active x de Flash player , lo carga y se ve bien.Pero quiero guardarlo con el common dialog pero he tratado con las propiedades y funciones y no me funcionan. esto es lo mas aproximado que he hecho pero tampoco funciona. Deseo guardar la pelicula con otro nombre y en otra carpeta . Si alguien me ayuda compartire el codigo fuente con el si lo desea.
Private Sub Command4_Click()
CommonDialog1.ShowSave
CommonDialog1.Filter = "Flash Files \*.swf"
ShockwaveFlash1.MovieData CommonDialog1.FileName, swf
End Sub |
