NEU

UID/cFileSystemWatcher.vb

@@ -0,0 +1,63 @@
+Imports System
+Imports System.IO
+Imports Microsoft.VisualBasic
+Imports System.Security.Permissions
+
+Public Class cFileSystemWatcher
+
+    Public Shared Sub Main()
+
+        Run()
+
+    End Sub
+
+    <PermissionSet(SecurityAction.Demand, Name:="FullTrust")> _
+    Private Shared Sub Run()
+
+        'Dim args() As String = System.Environment.GetCommandLineArgs()
+        Dim args As String = "C:\Users\DEVELOPER1\Desktop\test\"
+        ' If a directory is not specified, exit the program.
+        If args.Length <> 2 Then
+            ' Display the proper way to call the program.
+            Console.WriteLine("Usage: Watcher.exe (directory)")
+            Return
+        End If
+
+        ' Create a new FileSystemWatcher and set its properties.
+        Dim watcher As New FileSystemWatcher()
+        watcher.Path = args
+        ' Watch for changes in LastAccess and LastWrite times, and
+        ' the renaming of files or directories. 
+        watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
+        ' Only watch text files.
+        watcher.Filter = "*.txt"
+
+        ' Add event handlers.
+        AddHandler watcher.Changed, AddressOf OnChanged
+        AddHandler watcher.Created, AddressOf OnChanged
+        AddHandler watcher.Deleted, AddressOf OnChanged
+        AddHandler watcher.Renamed, AddressOf OnRenamed
+
+        ' Begin watching.
+        watcher.EnableRaisingEvents = True
+
+        ' Wait for the user to quit the program.
+        Console.WriteLine("Press 'q' to quit the sample.")
+        While Chr(Console.Read()) <> "q"c
+        End While
+    End Sub
+
+    ' Define the event handlers.
+    Private Shared Sub OnChanged(source As Object, e As FileSystemEventArgs)
+        ' Specify what is done when a file is changed, created, or deleted.
+        MsgBox("File: " & e.FullPath & " " & e.ChangeType)
+    End Sub
+
+    Private Shared Sub OnRenamed(source As Object, e As RenamedEventArgs)
+        ' Specify what is done when a file is renamed.
+        MsgBox("File: {0} renamed to {1}", e.OldFullPath, e.FullPath)
+    End Sub
+
+End Class
+
+