Ведение статистики копирования или перемещения файлов

Public Class Form1
    Dim deletedFilename As String
    Dim deletedFilePath As String
    Private Sub FileSystemWatcher1_Created(sender As Object, e As IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
        If getname(e.Name) = deletedFilename Then
            ListBox1.Items.Item(ListBox1.Items.Count - 1) = "перемещения файла " & deletedFilename & "от директорию" & deletedFilePath & "в директорию " & e.FullPath
        Else
            ListBox1.Items.Add("создан файл " & getname(e.Name) & " в директории " & e.FullPath)
        End If
    End Sub
    Private Sub FileSystemWatcher1_Deleted(sender As Object, e As IO.FileSystemEventArgs) Handles FileSystemWatcher1.Deleted
        ListBox1.Items.Add("файл удалён" & e.Name & e.FullPath)
        deletedFilename = getname(e.Name)
        deletedFilePath = e.FullPath
    End Sub
    Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
        ListBox1.Items.Add("переименован файл " & getname(e.OldName) & " на " & getname(e.Name))
    End Sub
    Private Function getname(ByVal text As String) As String
        Dim str() As String
        str = text.Split("")
        Return str(str.Length - 1)
    End Function
End Class