Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button5.Click
        Try
            Dim sourcePath As String = "C:\Projekt\Fried.txt"
            Dim destPath As String = "C:\Backup\Fried.txt"
            Dim movePath As String = "C:\Backup\Fried.txt"
            File.Copy(sourcePath, destPath)
            MessageBox.Show("Die Datei wurde Kopiert")
        Catch ex As Exception
        End Try
 
    End Sub

        Try
            System.IO.Directory.CreateDirectory("C:\Backup\" & Now.ToString( _
              "dddd dd-MM-yy"))
            System.IO.Directory.SetCurrentDirectory("c:\Backup\")
            MessageBox.Show("Der Ordner wurde Erstellt")
        Catch ex As Exception
            End
        End Try
    End Sub