Private Sub dateien_kopieren(ByVal von As String, ByVal nach As String)
        'Datei kopieren kopieren
        My.Computer.FileSystem.CopyFile(von, nach, _
          Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, _
          FileIO.UICancelOption.DoNothing)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus