Список файлов и папок в заданной директории

Есть такое
' Display the names in C:\ that represent directories. 
MyPath = "c:" ' Set the path. 
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry. 
Do While MyName <> "" ' Start the loop. ' Ignore the current directory and the encompassing directory. 
If MyName <> "." And MyName <> ".." Then ' Use bitwise comparison to make sure MyName is a directory. 
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName ' Display entry only if it
End If ' it represents a directory. 
End If 
MyName = Dir ' Get next entry. 
Loop
Как к массиву прикрутить?

Function DirList(Pth As String) As String()
Dim R() As String
 
    sz% = 100
    ReDim R(1 To 3, 1 To sz%) As String
    
    cF$ = Dir$(Pth + "\*.*", vbNormal)
    ptr% = 1
    
    Do
    
       If cF$ = "" Then Exit Do
       R(1, ptr%) = cF$
       R(2, ptr%) = Hex$(GetAttr(Pth + "" + cF$))
       R(3, ptr%) = CStr(FileLen(Pth + "" + cF$))
       ptr% = ptr% + 1
       
       cF$ = Dir$()
    
       If ptr% > sz% Then
          sz% = sz% + 100
          ReDim Preserve R(1 To 3, 1 To sz%) As String
       End If
       
    Loop
    
    ReDim Preserve R(1 To 3, 1 To (ptr% - 1)) As String
 
    DirList = R
 
End Function
 
Sub Test()
 
Dim D() As String
 
    D = DirList("C:\!Send")
 
    For i% = 1 To UBound(D, 2)
        Debug.Print D(1, i%); " "; D(2, i%); " "; D(3, i%)
    Next i%
 
End Sub

Function DirList(Pth As String) As String()
Dim R() As String
Dim D() As String
Dim T() As String
 
    sz% = 100
    ReDim D(1 To sz%) As String
    
    cD$ = Dir$(Pth + "\*.*", vbDirectory)
    ptrD% = 0
  
    Do
    
       If cD$ = "" Then Exit Do
    
       If cD$ <> "." And cD$ <> ".." Then
    
          If GetAttr(Pth + "" + cD$) And vbDirectory Then
    
             ptrD% = ptrD% + 1
             
             If ptrD% > sz% Then
                sz% = sz% + 100
                ReDim Preserve D(1 To sz%) As String
             End If
             
             D(ptrD%) = Pth + "" + cD$
                
          End If
              
       End If
    
       cD$ = Dir$()
    
    Loop
 
    sz% = 100
    ReDim R(1 To 3, 1 To sz%) As String
    
    cF$ = Dir$(Pth + "\*.*", vbNormal)
    ptrF% = 0
    
    Do
    
       If cF$ = "" Then Exit Do
      
       ptrF% = ptrF% + 1
      
       If ptrF% > sz% Then
          sz% = sz% + 100
          ReDim Preserve R(1 To 3, 1 To sz%) As String
       End If
      
       R(1, ptrF%) = Pth + "" + cF$
       R(2, ptrF%) = Hex$(GetAttr(Pth + "" + cF$))
       R(3, ptrF%) = CStr(FileLen(Pth + "" + cF$))
       
       cF$ = Dir$()
       
    Loop
    
    For i% = 1 To ptrD%
    
        cP$ = D(i%)
        T = DirList(cP$)
        
        For j% = 1 To UBound(T, 2)
        
            ptrF% = ptrF% + 1
      
            If ptrF% > sz% Then
               sz% = sz% + 100
               ReDim Preserve R(1 To 3, 1 To sz%) As String
            End If
    
            R(1, ptrF%) = T(1, j%)
            R(2, ptrF%) = T(2, j%)
            R(3, ptrF%) = T(3, j%)
    
        Next j%
        
        Erase T
        
    Next i%
    
    If ptrF% > 0 Then
    
       ReDim Preserve R(1 To 3, 1 To ptrF%) As String
       
    Else
    
       ReDim R(1 To 3, 0 To 0) As String
 
    End If
 
    DirList = R
 
End Function
 
Sub Test()
 
Dim D() As String
 
    D = DirList("C:\!Send")
 
    For i% = 1 To UBound(D, 2)
        Debug.Print D(1, i%); " "; D(2, i%); " "; D(3, i%)
    Next i%
 
End Sub

 If GetAttr(Pth + "" + cD$) And vbDirectory Then