Public Class Form1
 
    Private Event FolderContentChanged(ByVal info As String)
 
    Private Sub Form1_FolderContentChanged(ByVal info As String) Handles _
      Me.FolderContentChanged
         IO.File.AppendAllText("c:\Test\Logs\test.log", info & vbNewLine)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler fsw1.Created, AddressOf Me.fsw_ChangedDeletedCreated
        AddHandler fsw1.Changed, AddressOf Me.fsw_ChangedDeletedCreated
        AddHandler fsw1.Deleted, AddressOf Me.fsw_ChangedDeletedCreated
        AddHandler fsw1.Renamed, AddressOf Me.fsw_Renamed
 
        AddHandler fsw2.Created, AddressOf Me.fsw_ChangedDeletedCreated
        AddHandler fsw2.Changed, AddressOf Me.fsw_ChangedDeletedCreated
        AddHandler fsw2.Deleted, AddressOf Me.fsw_ChangedDeletedCreated
        AddHandler fsw2.Renamed, AddressOf Me.fsw_Renamed
 
        fsw1.Path = "C:\Test\Ordner1"
        fsw2.Path = "C:\Test\Ordner2"
 
        fsw1.IncludeSubdirectories = True
        fsw2.IncludeSubdirectories = True
 
        fsw1.EnableRaisingEvents = True
        fsw2.EnableRaisingEvents = True
 
    End Sub
 
    Private Sub fsw_ChangedDeletedCreated(ByVal sender As System.Object, ByVal _
      e As System.IO.FileSystemEventArgs)
        RaiseEvent FolderContentChanged(Now.ToString & " - [" & _
        e.ChangeType.ToString & "] - " & e.FullPath)
    End Sub
 
    Private Sub fsw_Renamed(ByVal sender As System.Object, ByVal e As _
      System.IO.RenamedEventArgs)
        RaiseEvent FolderContentChanged(Now.ToString & " - [" & _
        e.ChangeType.ToString & "] - " & e.FullPath)
    End Sub
 
End Class