Leggi (ReadLine) e scrivi (StreamWriter)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim csvScrivo As String = "D:\Procedure\_GeneraForm__New_Documenti\Esempio1.net\Esempio.txt"
'Dim writer As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(csvScrivo, False, System.Text.Encoding.UTF8) ' UTF32 o UTF7

Dim writer As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(csvScrivo, False, System.Text.Encoding.GetEncoding("iso-8859-1"))
Dim lines As String = ""

Try
Dim csvFile As String = "D:\Procedure\_GeneraForm__New_Documenti\Esempio1.net\FrmAcconti.resX"
Dim sr As StreamReader = New StreamReader(csvFile)
Dim line As String

Do
line = sr.ReadLine()
writer.WriteLine(line)
Debug.Print(line)
Loop Until line Is Nothing
sr.Close()
writer.Close()
Catch b As Exception

Console.WriteLine("The file could not be read:")
Console.WriteLine(b.Message)
End Try


Shell("Notepad.exe " & "D:\Procedure\_GeneraForm__New_Documenti\Esempio1.net\Esempio.txt", AppWinStyle.NormalFocus)




End Sub