Copy a file to the application directory

http://msdn.microsoft.com/en-us/library/9706cfs5.aspx

Hello,

Imports System
Imports System.IO

Public Class Test
    Public Shared Sub Main()
        ' Specify the directories you want to manipulate.
        Dim path As String = "c:\temp\MyTest.txt"
        Dim path2 As String = path + "temp"

        Try
            Dim fs As FileStream = File.Create(path)
            fs.Close()
            ' Ensure that the target does not exist.
            File.Delete(path2)

            ' Copy the file.
            File.Copy(path, path2)
            Console.WriteLine("{0} copied to {1}", path, path2)

            ' Try to copy the same file again, which should fail.
            File.Copy(path, path2)
            Console.WriteLine("The second Copy operation succeeded, which was not expected.")

        Catch e As Exception
            Console.WriteLine("The second Copy operation failed, as expected.")
        End Try
    End Sub
End Class

Thanks James, this is the right solution.

Greetings,

Peter Kiers