Imports System
Imports System.IO
Module Module1
Sub Main()
Dim FS As FileStream
Dim SW As StreamWriter
Dim STR As String
Try
'crear un flujo hacie el ficher txt
FS = New FileStream("d:doc.txt", FileMode.Append, FileAccess.Write)
SW = New StreamWriter(FS)
Console.WriteLine("Escriba una linea y pulse enter, para terminar solo pulse enter")
STR = Console.ReadLine
While STR <> Nothing
'escribe la linea en el fichero
SW.WriteLine(STR)
'siguiente linea
STR = Console.ReadLine
End While
Catch ex As IOException
Console.WriteLine("Error : " & ex.Message)
'Finally <== suprimida
' If (Not SW Is Nothing) Then SW.Close() <== y esta tambien la quite
End Try
End Sub
End Module