guardar como (common dialog)
Publicado por gustavo (2 intervenciones) el 23/07/2004 12:42:16
hola, tengo un problema, quiero guardar formularios en tiempo de ejecucion y tambien poder abrirlos, he puesto un common dialog y bien selecciono y al pulsar aceptar no hace nada, supongo q me faltara alguna linea, si me puedes ayudar te lo agradezco. esto es lo que tengo puesto
Private Sub Command2_Click()
CommonDialog2.CancelError = True
On Error GoTo ErrHandler
CommonDialog2.Flags = cdlOFNHideReadOnly
CommonDialog2.Filter = "Todos los archivos (*.*)[*.*]"
CommonDialog2.FilterIndex = 2
CommonDialog2.ShowOpen
MsgBox CommonDialog2.FileName
Exit Sub
ErrHandler:
Exit Sub
End Sub
gracias
Private Sub Command2_Click()
CommonDialog2.CancelError = True
On Error GoTo ErrHandler
CommonDialog2.Flags = cdlOFNHideReadOnly
CommonDialog2.Filter = "Todos los archivos (*.*)[*.*]"
CommonDialog2.FilterIndex = 2
CommonDialog2.ShowOpen
MsgBox CommonDialog2.FileName
Exit Sub
ErrHandler:
Exit Sub
End Sub
gracias
Valora esta pregunta


0