FileSystemWatcher文件文件夹监听

对指定文件夹监听，捕获新建，更改等操作。

1.新建TextBox，设为支持多行，Name=TextBoxInfo
2.新建两个按钮，开始和终了，分别表示开始监听和停止监听
3.添加处理，




Private watcher As System.IO.FileSystemWatcher = Nothing




'Button1のClickイベントハンドラ




Private Sub Button1_Click()Sub Button1_Click(ByVal sender As Object, _


ByVal e As System.EventArgs) Handles Button1.Click


If Not (watcher Is Nothing) Then


Return


End If




watcher = New System.IO.FileSystemWatcher


'監視するディレクトリを指定


watcher.Path = "D:Temp"


'最終アクセス日時、最終更新日時、ファイル、フォルダ名の変更を監視する


watcher.NotifyFilter = System.IO.NotifyFilters.LastAccess Or _


System.IO.NotifyFilters.LastWrite Or _


System.IO.NotifyFilters.FileName Or _


System.IO.NotifyFilters.DirectoryName


'すべてのファイルを監視


watcher.Filter = ""


'UIのスレッドにマーシャリングする


'コンソールアプリケーションでの使用では必要ない


watcher.SynchronizingObject = Me




'イベントハンドラの追加


AddHandler watcher.Changed, AddressOf watcher_Changed


AddHandler watcher.Created, AddressOf watcher_Changed


AddHandler watcher.Deleted, AddressOf watcher_Changed


AddHandler watcher.Renamed, AddressOf watcher_Renamed




'監視を開始する


watcher.EnableRaisingEvents = True


Console.WriteLine("監視を開始しました。")


If Me.TextBoxInfo.Text = "" Then


Me.TextBoxInfo.Text = CurrentTime() & "監視を開始しました。"


Else


Me.TextBoxInfo.Text = Me.TextBoxInfo.Text & ControlChars.CrLf & CurrentTime() & "監視を開始しました。"


End If


SetScrollBarPosition()


End Sub




'Button2のClickイベントハンドラ




Private Sub Button2_Click()Sub Button2_Click(ByVal sender As Object, _


ByVal e As System.EventArgs) Handles Button2.Click


'監視を終了


watcher.EnableRaisingEvents = False


watcher.Dispose()


watcher = Nothing


Console.WriteLine("監視を終了しました。")




Me.TextBoxInfo.Text = Me.TextBoxInfo.Text & ControlChars.CrLf & CurrentTime() & "監視を開始しました。"


SetScrollBarPosition()


End Sub




'イベントハンドラ




Private Sub watcher_Changed()Sub watcher_Changed(ByVal source As System.Object, _


ByVal e As System.IO.FileSystemEventArgs)


Select Case e.ChangeType


Case System.IO.WatcherChangeTypes.Changed


Console.WriteLine(("ファイル 「" + e.FullPath + _


"」が変更されました。"))


Me.TextBoxInfo.Text = Me.TextBoxInfo.Text & ControlChars.CrLf & CurrentTime() & "ファイル 「" & e.FullPath & "」が変更されました。"


Case System.IO.WatcherChangeTypes.Created


Console.WriteLine(("ファイル 「" + e.FullPath + _


"」が作成されました。"))


Me.TextBoxInfo.Text = Me.TextBoxInfo.Text & ControlChars.CrLf & CurrentTime() & "ファイル 「" & e.FullPath & "」が作成されました。"


Case System.IO.WatcherChangeTypes.Deleted


Console.WriteLine(("ファイル 「" + e.FullPath + _


"」が削除されました。"))


Me.TextBoxInfo.Text = Me.TextBoxInfo.Text & ControlChars.CrLf & CurrentTime() & "ファイル 「" & e.FullPath & "」が削除されました。"


End Select




SetScrollBarPosition()


End Sub






Private Sub watcher_Renamed()Sub watcher_Renamed(ByVal source As System.Object, _


ByVal e As System.IO.RenamedEventArgs)


Console.WriteLine(("ファイル 「" + e.FullPath + _


"」の名前が変更されました。"))


Me.TextBoxInfo.Text = Me.TextBoxInfo.Text & ControlChars.CrLf & CurrentTime() & "ファイル 「" & e.FullPath & "」の名前が変更されました。。"


SetScrollBarPosition()


End Sub






Private Sub SetScrollBarPosition()Sub SetScrollBarPosition()


'カレット位置を末尾に移動


TextBoxInfo.SelectionStart = TextBoxInfo.Text.Length


'テキストボックスにフォーカスを移動


TextBoxInfo.Focus()


'カレット位置までスクロール


TextBoxInfo.ScrollToCaret()




End Sub






Private Function CurrentTime()Function CurrentTime() As String


Return Now.ToString("yyyy/MM/dd hh:mm:ss FFF") & " "


End Function