File Directory VB.Net

Imports System
Imports System.IO
Public Class CopyToTest
    Public Shared Sub Main()
        Try
            Dim fi As New FileInfo("temp.txt")
            Dim sw As StreamWriter = fi.AppendText()
            sw.WriteLine("test...")
            sw.Flush()
            sw.Close()
            Dim sr As New StreamReader(fi.OpenRead())
            While sr.Peek() <> -1
                Console.WriteLine(sr.ReadLine())
            End While
            Dim newfi As FileInfo = fi.CopyTo("newTemp.txt")
            sr = New StreamReader(newfi.OpenRead())
            While sr.Peek() <> -1
                Console.WriteLine(sr.ReadLine())
            End While
        Catch e As Exception
            Console.WriteLine(e.Message)
        End Try
    End Sub
End Class