Dim fw As New System.IO.FileSystemWatcher("F:\")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
fw.Filter = "*.*"
fw.NotifyFilter = NotifyFilters.FileName Or NotifyFilters.Size
fw.IncludeSubdirectories = True
fw.EnableRaisingEvents = True
AddHandler fw.Changed, AddressOf filechanged
AddHandler fw.Created, AddressOf fileCreated
AddHandler fw.Deleted, AddressOf fileDeleted
AddHandler fw.Renamed, AddressOf fileRenamed
End Sub