Private Function nicename(ByVal str As String)
        Dim arr() As String
        arr = Split(str, "\")
        Dim length As Integer
        length = arr.Length
        Return arr(length - 1)
    End Function