My.Computer.FileSystem.OpenTextFileReader(c) i = -1 While Not EOF(c) i = i + 1 ReDim Preserve T(i) T(i) = My.Computer.FileSystem.ReadAllText(c) MsgBox(T) End While
Using fs As New FileStream("C:\test.txt", FileMode.Open, FileAccess.Read) Using reader As New StreamReader(fs) While Not reader.EndOfStream Console.WriteLine(Chr(reader.Read())) End While End Using End Using