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