Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e _
  As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed
        Me.ereignis.Text = Me.ereignis.Text & "Datei verändert in: " & _
        e.FullPath.ToString & ". Art: " & e.ChangeType & vbCrLf
End Sub

e.ChangeType.Changed.GetName()

Gehe immer vom Guten Willen Anderer aus!