Private Sub fsw_button(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles fswButton.Click
            fsw = New IO.FileSystemWatcher(TextBox1.Text)
            fsw.EnableRaisingEvents = True
            fsw.IncludeSubdirectories = True
            fsw.Filter = "*.wse*"
            fsw.NotifyFilter = IO.NotifyFilters.FileName Or _
              IO.NotifyFilters.LastWrite
            fsw.InternalBufferSize = 4096 * 16
            Me.Text = "WseWatch - Überwachung gestartet"
    End Sub
 
    Private Sub fsw_Created(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles fsw.Created
        ListBox1.Items.Add(e.FullPath)
    End Sub
 
    Private Sub fsw_Renamed(ByVal sender As Object, ByVal e As _
      System.IO.RenamedEventArgs) Handles fsw.Renamed
        ListBox1.Items.Add(e.FullPath)
        ListBox1.Items.Remove(e.OldFullPath)
    End Sub
 
    Private Sub fsw_Deleted(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles fsw.Deleted
        ListBox1.Items.Remove(e.FullPath)
    End Sub