本文整理汇总了VB.NET中System.IO.FileSystemWatcher.Changed事件的典型用法代码示例。如果您正苦于以下问题:VB.NET FileSystemWatcher.Changed事件的具体用法?VB.NET FileSystemWatcher.Changed怎么用?VB.NET FileSystemWatcher.Changed使用的例子?那么, 这里精选的事件代码示例或许可以为您提供帮助。您也可以进一步了解该事件所在类System.IO.FileSystemWatcher
的用法示例。
在下文中一共展示了FileSystemWatcher.Changed事件的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Watcher
' 导入命名空间
Imports System.IO
Imports System.Security.Permissions
Public Class Watcher
Public Shared Sub Main()
Run()
End Sub
<PermissionSet(SecurityAction.Demand, Name:="FullTrust")>
Private Shared Sub Run()
Dim args() As String = Environment.GetCommandLineArgs()
' 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.
Using watcher As New FileSystemWatcher()
watcher.Path = args(1)
' 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 Using
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.
Console.WriteLine($"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.
Console.WriteLine($"File: {e.OldFullPath} renamed to {e.FullPath}")
End Sub
End Class
示例2: Module1
' 导入命名空间
Imports System.IO
Module Module1
WithEvents Watcher As New FileSystemWatcher("C:\")
Sub Main()
Watcher.Filter = "*.*"
Watcher.IncludeSubdirectories = True
Watcher.EnableRaisingEvents = True
Console.ReadLine()
End Sub
Sub OnChanged(ByVal From As Object, ByVal e As FileSystemEventArgs) Handles Watcher.Changed
Dim DateAndTime As DateTime = DateTime.Now
Console.WriteLine(e.FullPath & " " _
& e.ChangeType() & " " & DateAndTime)
End Sub
End Module