SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: shortys en Viernes 29 de Noviembre de 2002, 18:30

Título: Re: Problema adjunto el programa
Publicado por: shortys en Viernes 29 de Noviembre de 2002, 18:30
Apreten el boton y les aparece la pantalla de guardar sin le dan a cancelar les sale ese error que antes les menciono
Gracias!
Título: Re: Problema adjunto el programa
Publicado por: javierbalk en Viernes 29 de Noviembre de 2002, 19:49
Ahí te hice la modificación para trabajar con la captura de errores y detectar que presionó el botón cancelar:

Private Sub Command1_Click()
    Cdl1.Filter = "Archivo de texto(*.txt)|*.txt"
    Cdl1.CancelError = True
    On Error Resume Next
    Cdl1.ShowSave
    If Err.Number = 0 Then
        Open Cdl1.FileName For Output As #1
            Print #1, Text1.Text
        Close #1
    End If
End Sub

Saludos,
Javier
Título: Problema adjunto el programa
Publicado por: shortys en Viernes 29 de Noviembre de 2002, 22:57
Funciona  muy bien
No controlo bien el manejo de errores todavia
Gracias por tu ayuda:)