Private watcher As New FileSystemWatcher()
 
    Public Sub New()
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
 
        ' Watch for changes in LastAccess and LastWrite times, and the renaming 
        ' of files or directories. 
        watcher.NotifyFilter = (NotifyFilters.LastAccess Or _
          NotifyFilters.LastWrite Or NotifyFilters.FileName Or _
          NotifyFilters.DirectoryName)
        ' Only watch csv files.
        'watcher.Filter = "*.csv"
        watcher.Filter = "*.*"
        ' Add event handlers.
        AddHandler watcher.Changed, AddressOf OnChanged
        ' AddHandler watcher.Created, AddressOf OnChanged
 
        btnStop.Enabled = False
        tbExport.ReadOnly = True
        tbImport.ReadOnly = True
 
    End Sub