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
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