Imports System
Imports System.IO
Public Class Form1
    'Variablendeklaration
    Public Ordner As String
    Public Starten As Boolean
 
    Private Sub Beenden_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Beenden.Click
        'Button "Beenden"
        Starten = False
        FSW1.EnableRaisingEvents = False
 
        'erfasste Ereignisse speichern
        For Each item As String In Ausgabefeld.Items
            My.Settings.Ereignisse.Add(item)
        Next
 
        Me.Close()
    End Sub
 
    Private Sub Verzeichnis_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Verzeichnis.Click
        'Button "Verzeichnis"
        FBD1.ShowDialog()
        Ordner = FBD1.SelectedPath
        Label1.Text = Ordner
        Label1.Visible = True
    End Sub
 
    Private Sub Start_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Start.Click
        Try
            Ausgabefeld.Items.Clear()
            Starten = True 'Hilfsvariable um Überwachung zu starten
            Label2.Text = "Überwachung läuft"
            Label2.Visible = True
            Label3.Text = ""
 
            With FSW1
                ' zu überwachendes Verzeichnis
                .Path = Ordner
 
                ' Filter setzenb = alle Dateien
                .Filter = ""
 
                ' auch Unterverzeichnisse überwachen?
                .IncludeSubdirectories = True
 
                ' Benachrichtigungsfilter festlegen
                .NotifyFilter = IO.NotifyFilters.LastWrite Or _
                  IO.NotifyFilters.FileName Or IO.NotifyFilters.DirectoryName _
                  Or _
                NotifyFilters.LastAccess
            End With
 
            'Überwachung starten, Meldeanzeige aktivieren
            If Starten = True And Ordner.Length > 0 Then
                FSW1.EnableRaisingEvents = True
            Else
                FSW1.EnableRaisingEvents = False
            End If
 
        Catch ex As Exception
            MsgBox("Fehler aufgetreten")
        End Try
    End Sub
 
    Private Sub FSW1_Changed(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles FSW1.Changed
        'Dateiänderung erkannt
        Ausgabefeld.Items.Add(e.FullPath & " wurde geändert" & Now)
        Label3.Text = Ausgabefeld.Items.Count
        Label3.Visible = True
    End Sub
 
    Private Sub FSW1_Created(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles FSW1.Created
        'Datei wurde erstellt
        Ausgabefeld.Items.Add(e.FullPath & " wurde erstellt" & Now)
        Label3.Text = Ausgabefeld.Items.Count
        Label3.Visible = True
    End Sub
 
    Private Sub FSW1_Renamed(ByVal sender As Object, ByVal e As _
      System.IO.RenamedEventArgs) Handles FSW1.Renamed
        'Datei wurde umbenannt
        Ausgabefeld.Items.Add(e.FullPath & " wurde umbenannt" & Now)
        Label3.Text = Ausgabefeld.Items.Count
        Label3.Visible = True
    End Sub
 
    Private Sub Stopp_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Stopp.Click
        'Überwachung stoppen, Meldeanzeige deaktivieren
        Starten = False
        FSW1.EnableRaisingEvents = False
        Label2.Text = "Überwachung gestoppt"
 
        'erfasste Ereignisse speichern
        For Each item As String In Ausgabefeld.Items
            My.Settings.Ereignisse.Add(item)
        Next
 
    End Sub
 
    Private Sub Löschen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Löschen.Click
        'History löschen und Ansicht aktualisieren
        My.Settings.Ereignisse.Clear()
        Ausgabefeld.Items.Clear()
    End Sub
 
    Private Sub Anzeigen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Anzeigen.Click
        'erfasste Ereignisse wiederherstellen und anzeigen
        For Each item As String In My.Settings.Ereignisse
            Ausgabefeld.Items.Add(item)
            Label3.Text = Ausgabefeld.Items.Count
            Label3.Visible = True
        Next
    End Sub
End Class