File Directory VB.Net

Imports System
Imports System.IO
Module FileExample
    Sub Main()
        Try
            Dim OriginalFile As String = "test.xml"
            Dim FileToReplace As String = "test2.xml"
            Dim BackUpOfFileToReplace As String = "test2.xml.bak"
            File.Replace(OriginalFile, FileToReplace, BackUpOfFileToReplace, False)
        Catch e As Exception
            Console.WriteLine(e)
        End Try
    End Sub
End Module