VB.Net by API/System.IO/FileSystemEventArgs

FileSystemEventArgs.ChangeType()

<source lang="vbnet"> Imports System.IO Module Module1

   WithEvents Watcher As New FileSystemWatcher("C:\")
   Sub Main()
       Watcher.Filter = "*.*"
       Watcher.IncludeSubdirectories = True
       Watcher.EnableRaisingEvents = True
       Console.ReadLine()
   End Sub
   Sub OnChanged(ByVal From As Object, ByVal e As FileSystemEventArgs) Handles Watcher.Changed
       Dim DateAndTime As DateTime = DateTime.Now
       Console.WriteLine(e.FullPath & " " _
          & e.ChangeType() & " " & DateAndTime)
   End Sub

End Module

 </source>