Listato 1 Il listato dell'applicazione in grado di eseguire delle operazioni di caricamento e salvataggio dei dati su un file di testo.
Private Sub btnCarica_Click() Dim Riga As String Dim NomeFile As String txtTesto.Text = "" NomeFile = txtNomeFile.Text Open NomeFile For Input As #1 Do Until EOF(1) Line Input #1, Riga txtTesto.Text = txtTesto.Text & Riga & Chr$(13) & Chr$(10) Loop Close #1 End Sub Private Sub btnCancella_Click() txtTesto.Text = "" End Sub Private Sub btnSalva_Click() Dim NomeFile As String NomeFile = txtNomeFile.Text Open NomeFile For Output As #1 Print #1, txtTesto.Text Close #1 End Sub