ПОНЯТНО О Visual Basic NET (том 3)


Программа-шпион - часть 2


        Дописываем_в_файл("Стерт файл или папка:  " & e.FullPath)

End Sub

 

Private Sub Фиксируем_переименование(ByVal source As Object, ByVal e As IO.RenamedEventArgs)

        Дописываем_в_файл("Файл или папка  " & e.OldFullPath & "  переименован в  " & e.FullPath)

End Sub

 

Private Sub Фиксируем_изменение(ByVal source As Object, ByVal e As IO.FileSystemEventArgs)

        Дописываем_в_файл("Изменен файл или папка:  " & e.FullPath)

End Sub

 

Private Sub Дописываем_в_файл(ByVal Строка As String)

        Dim Дозапись As New System.IO.StreamWriter("Журнал.txt", True)

        Дозапись.WriteLine(DateTime.Now & "  " & Строка)

        Дозапись.Close()

End Sub

Вот пример содержимого файла Журнал.txt, заполненного этой программой:

13.05.2004 16:36:24  Стерт файл или папка:  E:\Дела\колледж.txt

13.05.2004 16:38:16  Создан файл или папка:  E:\Дела\new text document.txt

13.05.2004 16:38:32  Файл или папка  E:\Дела\new text document.txt

                        переименован в  E:\Дела\институт.txt

13.05.2004 16:41:04  Изменен файл или папка:  E:\Дела\работа.txt

13.05.2004 16:41:04  Изменен файл или папка:  E:\Дела\работа.txt

Вот пояснения:

В библиотеке классов .NET Framework для присмотра за изменениями в файлах и папках существует специальный класс  FileSystemWatcher («Надсмотрщик за файловой системой») пространства имен System.IO. У него есть несколько событий, которые генерируются при вышеупомянутых изменениях. Написав обработчики этих событий, мы можем как угодно на них реагировать, в том числе и записывать информацию о них в какой-нибудь файл.

Вначале мы создаем объект Шпион указанного класса. Все действия по его настройке осуществляются при загрузке формы:

Прежде всего мы указываем шпиону, что следить нужно только за содержимым папки C:\Дела:

        Шпион.Path = "C:\Дела"

Далее мы объясняем, что нас интересует также содержимое папок, вложенных в папку Дела:




Начало  Назад  Вперед



Книжный магазин