TreeView of directory

Private WithEvents tvw As MSComctlLib.TreeView

Private Sub cmdLoad_Click()
    Dim fileDialog As fileDialog
    
    Set fileDialog = Application.fileDialog(msoFileDialogFolderPicker)
    With fileDialog
        .AllowMultiSelect = False
        .Title = "Choose Directory"
        If (.Show) Then loadList (.SelectedItems(1))
        Set tvw = tvwList.Object
        tvw.Nodes(1).Expanded = True
    End With
End Sub

Public Function loadList(topFolder As String)
On Error GoTo Handler
    Dim fsObject As New FileSystemObject
    Dim fsFolder As Folder
    Dim fsFolders As Folder
    Dim subFolders As Folders
    Dim subFolder As Folder
    Dim fsFile As File
    Dim fsFiles As Files
    Dim message As String
    Dim parentFolder As String
    Dim targetLoc As Integer
    
    Set tvw = Me.tvwList.Object
    With tvw
    Set fsFolder = fsObject.GetFolder(topFolder)
    
    If tvw.Nodes.Count < 1 Then
        'initialize first node
        .Nodes.Add , , fsFolder.Path, fsFolder.Name
    End If
        
    Set subFolders = fsFolder.subFolders
    For Each subFolder In subFolders
        For targetLoc = Len(subFolder.Path) To 1 Step -1
            If Mid(subFolder.Path, targetLoc, 1) = "\" Then
                parentFolder = Left(subFolder.Path, targetLoc - 1)
                targetLoc = 1
            End If
        Next targetLoc
        .Nodes.Add parentFolder, tvwChild, subFolder.Path, subFolder.Name
        loadList (subFolder.Path)
    Next subFolder
    
    Set fsFiles = fsFolder.Files
    For Each fsFile In fsFiles
        .Nodes.Add topFolder, tvwChild, fsFile.Path, fsFile.Name
    Next fsFile
    End With
    

loadListExit:
    Exit Function

Handler:
    Select Case Err.Number
        Case Else
            message = "Error #" & Err.Number & " : " & Err.Description
            MsgBox message, vbCritical, "ERROR"
            
    End Select
    Resume loadListExit
    
End Function