当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET FileSystemWatcher.Created事件代码示例

本文整理汇总了VB.NET中System.IO.FileSystemWatcher.Created事件的典型用法代码示例。如果您正苦于以下问题:VB.NET FileSystemWatcher.Created事件的具体用法?VB.NET FileSystemWatcher.Created怎么用?VB.NET FileSystemWatcher.Created使用的例子?那么, 这里精选的事件代码示例或许可以为您提供帮助。您也可以进一步了解该事件所在System.IO.FileSystemWatcher的用法示例。


在下文中一共展示了FileSystemWatcher.Created事件的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
开发者ID:VB.NET开发者,项目名称:System.IO,代码行数:66,代码来源:FileSystemWatcher.Created

示例2: MainClass

' 导入命名空间
Imports System
Imports System.IO

Public Class MainClass
   Shared Private WithEvents m_FileSystemWatcher As FileSystemWatcher

   Shared Sub Main()
        m_FileSystemWatcher = New FileSystemWatcher("C:\")
        m_FileSystemWatcher.EnableRaisingEvents = True
   End Sub 
    ' Watch for file creations.
    Shared Private Sub m_FileSystemWatcher_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles m_FileSystemWatcher.Created
        Console.WriteLine(e.FullPath & " created")
    End Sub

End Class
开发者ID:VB程序员,项目名称:System.IO,代码行数:17,代码来源:FileSystemWatcher.Created


注:本文中的System.IO.FileSystemWatcher.Created事件示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。