Dim path5 As String = "c:\Testordner\*.txt"
Dim path2 As String = "c:\Testordner\*.tmp"
 
                     Try
                            If File.Exists(path5) = False Then
                                '        ' This statement ensures that the file _
                                  is created,
                                '        ' but the handle is not kept.
                                Dim fsm As FileStream = File.Create(path5)
                                fsm.Close()
                            End If
 
                            ' Ensure that the target does not exist.
                            If File.Exists(path2) Then
                                File.Delete(path2)
                            End If
 
                            ' Move the file.
                            File.Move(path5, path2)
                            Console.WriteLine("{0} moved to {1}", path5, path2)
 
                            ' See if the original file exists now.
                            If File.Exists(path5) Then
                                Console.WriteLine("The original file still" & _
                                  "exists, which is unexpected.")
                            Else
                                Console.WriteLine("The original file no longer" & _
                                  "exists, which is expected.")
                            End If
                        Catch p As Exception
                            Console.WriteLine("The process failed: {0}", _
                              e.ToString())
                        End Try