ListView и получение списка папок - VB

Формулировка задачи:

Есть серверная часть игры, надо написать утилиту, есть папка в директории сервера Accounts, в ней папки с логинами юзеров, мне надо получить listView со списком этих логинов и при этом обрезать лишний путь... тоесть что бы вместо C:\downloads\game\server\Accounts\LordXaosa было просто LordXaosa как мне забить ListView папками? я уже перепробовал пару способов (например тут и тут 2-й способ забивал только папку Accounts а 1-й вот:

                    Листинг программы
                
 
                            
                        
Dim Result() 'тут сохраним список всех папок
Sub main()
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder(CurDir+"\Accounts") 'с какого каталога пойдем
 
ReDim Result(1, 0)
WorkWithSubFolders TheFolder 'поехали
ReDim Preserve Result(1, UBound(Result, 2) - 1)
MsgBox "OK" 'приехали
End Sub
 
'обрабатывает поддиректории
Sub WorkWithSubFolders(ByVal AFolder)
  Dim MoreFolders, TempFolder
    ReDim Preserve Result(1, UBound(Result, 2) + 1)
    Result(0, UBound(Result, 2) - 1) = AFolder.Name
    Result(1, UBound(Result, 2) - 1) = AFolder.Path
  Set MoreFolders = AFolder.SubFolders
  For Each TempFolder In MoreFolders
    WorkWithSubFolders TempFolder
  Next
End Sub
 
Sub Command2_Click()
Call main
For i = 0 To UBound(Result) 'может неверная функция? определение кол-во эл-тов в массиве
ListView1.ListItems.Add i, "a", Result(i), 0, 0 'если делать так то выдает Script out of range
ListView1.ListItems.Item.ListSubItems.Add i, "a", Result(i), 0, 0 'а если так то Argument not optional на .Item
Next i
End Sub

Решение задачи: «ListView и получение списка папок»

textual
                            Листинг программы 
                        
For i = 0 To Dir1.ListCount