VBBD_Ejercicio 04

Private Sub cmdAbrir_Click()
Text1.Text = ""
On Error GoTo NoSeleccionoArchivo:
CommonDialog1.Filter = "Archivos de texto (TXT)" & Chr(32) & Chr(124) & "*.txt"
CommonDialog1.ShowOpen
Dim Linea As String

Open CommonDialog1.FileName For Input As #1

    While Not EOF(1)
    Line Input #1, Linea
    Text1.Text = Text1.Text & Linea & Chr(13) & Chr(10)
    Wend

Close #1

Exit Sub
NoSeleccionoArchivo:

End Sub


Private Sub cmdGuardar_Click()
On Error GoTo NoSeleccionoArchivo:
CommonDialog1.Filter = "Archivos de texto (TXT)" & Chr(32) & Chr(124) & "*.txt"

CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1
    Print #1, Text1.Text
Close #1

    MsgBox ("Archivo Guardado.")

Exit Sub
NoSeleccionoArchivo:

End Sub

Private Sub cmdNuevo_Click()
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub cmdSalir_Click()
End
End Sub