1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Class Program
Public Shared Sub Main(args As String())
Dim watcher As New FileSystemWatcher("C:\Users\ism\Documents\SharpDevelop Projects\FileSystemWatcher_vb\FileSystemWatcher_vb\bin\Debug\")
watcher.EnableRaisingEvents = True
watcher.IncludeSubdirectories = True
'add Event Handlers
AddHandler watcher.Changed, AddressOf watcher_changed
AddHandler watcher.Created, AddressOf watcher_created
Console.Read()
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
Private Shared Sub watcher_changed(sender As Object, e As FileSystemEventArgs)
Console.WriteLine("File : {0} changed at time: {1}", e.Name, DateTime.Now.ToLocalTime())
End Sub
Private Shared Sub watcher_created(sender As Object, e As FileSystemEventArgs)
Console.WriteLine("File : {0} created at time: {1}", e.Name, DateTime.Now.ToLocalTime())
End Sub
End Class |
Partager