Programación General > Visual Basic 6.0 e inferiores

 Re: Problema adjunto el programa

(1/1)

shortys:
Apreten el boton y les aparece la pantalla de guardar sin le dan a cancelar les sale ese error que antes les menciono
Gracias!

javierbalk:
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

shortys:
Funciona  muy bien
No controlo bien el manejo de errores todavia
Gracias por tu ayuda:)

Navegación

[0] Índice de Mensajes