FileSystemEventHandler 委托

表示将处理 FileSystemWatcher 类的 Changed、Created 或 Deleted 事件的方法。

**命名空间:**System.IO
**程序集:**System（在 system.dll 中）

语法

声明
Public Delegate Sub FileSystemEventHandler ( _
    sender As Object, _
    e As FileSystemEventArgs _
)
用法
Dim instance As New FileSystemEventHandler(AddressOf HandlerMethod)

public delegate void FileSystemEventHandler (
    Object sender,
    FileSystemEventArgs e
)

public delegate void FileSystemEventHandler (
    Object^ sender, 
    FileSystemEventArgs^ e
)

/** @delegate */
public delegate void FileSystemEventHandler (
    Object sender, 
    FileSystemEventArgs e
)

JScript 支持使用委托，但不支持进行新的声明。

参数

• sender
  事件源。

• e
  包含事件数据的 FileSystemEventArgs。

备注

当创建 FileSystemEventHandler 委托时，将标识处理事件的方法。若要使该事件与事件处理程序相关联，请将该委托的一个实例添加到事件中。除非移除了该委托，否则每当发生该事件时就调用事件处理程序。有关事件处理程序委托的更多信息，请参见 事件和委托。

示例

下面的示例演示如何创建 FileSystemWatcher，以监视磁盘驱动器上文件的改动（创建、删除、重命名和更改）。此示例还演示如何正确接收错误通知。

Imports System.IO

Module Module1
    Sub Main()
        ' Create a FileSystemWatcher to monitor all files on drive C.
        Dim fsw As New FileSystemWatcher("C:\")

        ' Watch for changes in LastAccess and LastWrite times, and
        ' the renaming of files or directories. 
        fsw.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite _ 
            Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)

        ' Register a handler that gets called when a 
        ' file is created, changed, or deleted.
        AddHandler fsw.Changed, New FileSystemEventHandler(AddressOf OnChanged)

        ' The commented line of code below is a shorthand of the above line.
        ' AddHandler fsw.Changed, AddressOf OnChanged

        ' NOTE: The shorthand version is used in the remainder of this code.
        ' FileSystemEventHandler
        AddHandler fsw.Created, AddressOf OnChanged 
        ' FileSystemEventHandler
        AddHandler fsw.Deleted, AddressOf OnChanged

        ' Register a handler that gets called when a file is renamed.
        ' RenamedEventHandler
        AddHandler fsw.Renamed, AddressOf OnRenamed

        ' Register a handler that gets called if the 
        ' FileSystemWatcher needs to report an error.
        ' ErrorEventHandler
        AddHandler fsw.Error, AddressOf OnError

        ' Begin watching.
        fsw.EnableRaisingEvents = True

        ' Wait for the user to quit the program.
        Console.WriteLine("Press 'Enter' to quit the sample.")
        Console.ReadLine()
    End Sub

    ' This method is called when a file is created, changed, or deleted.
    Private Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)

        ' Show that a file has been created, changed, or deleted.
        Dim wct As WatcherChangeTypes = e.ChangeType
        Console.WriteLine("File {0} {1}", e.FullPath, wct.ToString())
    End Sub

    ' This method is called when a file is renamed.
    Private Sub OnRenamed(ByVal source As Object, ByVal e As RenamedEventArgs)

        ' Show that a file has been renamed.
        Dim wct As WatcherChangeTypes = e.ChangeType
        Console.WriteLine("File {0} {2} to {1}", e.OldFullPath, e.FullPath, wct.ToString())
    End Sub

    ' This method is called when the FileSystemWatcher detects an error.
    Private Sub OnError(ByVal source As Object, ByVal e As ErrorEventArgs)

        ' Show that an error has been detected.
        Console.WriteLine("The FileSystemWatcher has detected an error")

        ' Give more information if the error is due to an internal buffer overflow.
        If TypeOf e.GetException Is InternalBufferOverflowException Then
            ' This can happen if Windows is reporting many file system events quickly 
            ' and internal buffer of the  FileSystemWatcher is not large enough to handle this
            ' rate of events. The InternalBufferOverflowException error informs the application
            ' that some of the file system events are being lost.
            Console.WriteLine( _
                "The file system watcher experienced an internal buffer overflow: " _
                + e.GetException.Message)
        End If
    End Sub
End Module

平台

Windows 98、Windows 2000 SP4、Windows Server 2003、Windows XP Media Center Edition、Windows XP Professional x64 Edition、Windows XP SP2、Windows XP Starter Edition

.NET Framework 并不是对每个平台的所有版本都提供支持。有关受支持版本的列表，请参见系统要求。

版本信息

.NET Framework

受以下版本支持：2.0、1.1、1.0

请参见

参考

System.IO 命名空间
Changed
Created
Deleted
FileSystemEventArgs 类
FileSystemWatcher
InternalBufferOverflowException
NotifyFilters
RenamedEventArgs
RenamedEventHandler
WaitForChangedResult
WatcherChangeTypes