Dim args() As String = System.Environment.GetCommandLineArgs()
 
        Dim watcher As New FileSystemWatcher
        watcher.Path = "c:\Downloads"
 
        watcher.NotifyFilter = (NotifyFilters.LastAccess Or _
          NotifyFilters.LastWrite Or NotifyFilters.Security Or _
          NotifyFilters.Attributes)
 
        watcher.Filter = ""
 
        watcher.IncludeSubdirectories = True
 
        AddHandler watcher.Changed, AddressOf OnChanged
        AddHandler watcher.Created, AddressOf OnChanged
 
        watcher.EnableRaisingEvents = True