watchfolder = New System.IO.FileSystemWatcher()
 
        watchfolder.Path = Settings.Srcdir
 
        watchfolder.NotifyFilter = IO.NotifyFilters.DirectoryName
        watchfolder.NotifyFilter = watchfolder.NotifyFilter Or _
                                   IO.NotifyFilters.FileName
        watchfolder.NotifyFilter = watchfolder.NotifyFilter Or _
                                   IO.NotifyFilters.Attributes
 
        AddHandler watchfolder.Changed, AddressOf dirchange
        AddHandler watchfolder.Created, AddressOf dirchange
 
        check_dir()
 
        watchfolder.EnableRaisingEvents = True
 
Exit Sub
 
 
Private Sub dirchange(ByVal source As Object, ByVal e As _
  System.IO.FileSystemEventArgs)
 
        check_dir()
 
End Sub