|
Apre il file
Private Sub ApriFile(ByVal NomeFile As String) Dim Testo As String Dim FileReader As New System.IO.StreamReader(NomeFile) 'Legge l'intero file e lo salva nella variabile "Testo". Testo = FileReader.ReadToEnd FileReader.Close() 'Libera le risorse allocate con New. FileReader = Nothing txtTesto.Text = Testo End Sub |