Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e _
  As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed
        write_text("Datei verändert in: " & e.FullPath.ToString)
        Try
            If File.Exists(to_path & "PREVIOS VERSIONS\" & e.Name.ToString()) _
              Then Kill(to_path & "PREVIOS VERSIONS\" & e.Name.ToString())
            File.Copy(to_path & e.Name.ToString(), to_path & "PREVIOS" & _
            "VERSIONS\" & e.Name.ToString())
            If File.Exists(to_path & e.Name.ToString()) Then Kill(to_path & _
            e.Name.ToString())
            File.Copy(e.FullPath.ToString(), to_path & e.Name.ToString())
        Catch ex As Exception
            MsgBox("Fehler: " & ex.Message.ToString(), MsgBoxStyle.Critical Or _
              MsgBoxStyle.OkOnly)
        End Try
    End Sub

Gehe immer vom Guten Willen Anderer aus!