Public Sub ueberwachung()
        Dim watcher As New FileSystemWatcher()
        watcher.Path = quellpfad
        watcher.Filter = "*.edl"
        ' --- zu überwachende Änderungen
        watcher.NotifyFilter = NotifyFilters.LastAccess Or _
          NotifyFilters.LastWrite Or _
        NotifyFilters.Size Or NotifyFilters.FileName
        ' --- Registrierung der
        ' --- Ereignisbehandlungsroutinen
        AddHandler watcher.Changed, AddressOf korrektur
        AddHandler watcher.Created, AddressOf korrektur
        watcher.EnableRaisingEvents = True
    End Sub