ArrayList duplicate a text file Learn programming Visual Basic (VB.net)

Lesson:

Dynamic Memory Management

Exercise:

ArrayList duplicate a text file

Objetive:

Create a program that reads from a text file and stores it to another text file by reversing the order of lines.

For example, an input text file like:

yesterday Real Madrid
won against
Barcelona FC

will be stored in an output text file like:

Barcelona FC
won against
yesterday Real Madrid

Code:

Imports System
Imports System.IO
Imports System.Collections
Namespace TextFileInvert
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Console.Write("Introduce el nombre del fichero: ")
            Dim nombreArchivo As String = Console.ReadLine()

If Not File.Exists(nombreArchivo) Then
                Console.Write("El archivo no existe!")
                Return
            End If

Try
                Dim miArchivo As StreamReader
                miArchivo = File.OpenText(nombreArchivo)
                Dim line As String
                Dim miLista As ArrayList = New ArrayList()

Do
                    line = miArchivo.ReadLine()
                    If line IsNot Nothing Then miLista.Add(line)
                Loop While line IsNot Nothing

miArchivo.Close()
                Dim miArchivoAlReves As StreamWriter = File.CreateText(nombreArchivo & "-reverse.txt")
                Dim tamanyoArchivo As Integer = miLista.Count

For i As Integer = tamanyoArchivo - 1 To 0
                    miArchivoAlReves.WriteLine(miLista(i))
                Next

miArchivoAlReves.Close()
            Catch e As Exception
                Console.WriteLine("Error, " & e.Message)
            End Try

Console.ReadLine()
        End Sub
    End Class
End Namespace

Imports System
Imports System.IO
Imports System.Collections
Namespace TextFileInvert
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Console.Write("Introduce el nombre del fichero: ")
            Dim nombreArchivo As String = Console.ReadLine()

            If Not File.Exists(nombreArchivo) Then
                Console.Write("El archivo no existe!")
                Return
            End If

            Try
                Dim miArchivo As StreamReader
                miArchivo = File.OpenText(nombreArchivo)
                Dim line As String
                Dim miLista As ArrayList = New ArrayList()

                Do
                    line = miArchivo.ReadLine()
                    If line IsNot Nothing Then miLista.Add(line)
                Loop While line IsNot Nothing

                miArchivo.Close()
                Dim miArchivoAlReves As StreamWriter = File.CreateText(nombreArchivo & "-reverse.txt")
                Dim tamanyoArchivo As Integer = miLista.Count

                For i As Integer = tamanyoArchivo - 1 To 0
                    miArchivoAlReves.WriteLine(miLista(i))
                Next

                miArchivoAlReves.Close()
            Catch e As Exception
                Console.WriteLine("Error, " & e.Message)
            End Try

            Console.ReadLine()
        End Sub
    End Class
End Namespace