VBA-WorkingWithFileSystem

Function listfiles(ByVal sPath As String)

Dim vaArray As Variant
Dim i As Integer
Dim oFile As Object
Dim oFSO As Object
Dim oFolder As Object
Dim oFiles As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sPath)
Set oFiles = oFolder.Files

If oFiles.Count = 0 Then Exit Function


i = 0
ReDim vaArray(1 To 1)
For Each oFile In oFiles

i = i + 1
ReDim Preserve vaArray(1 To i)
vaArray(i) = oFile.Name

Next

listfiles = vaArray

End Function

Function GetSubFolders(RootPath)
Dim fso As Object
Dim fld As Object
Dim sf As Object
Dim Arr() As String
Dim Counter As Long


Dim myArr


Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(RootPath)
For Each sf In fld.SUBFOLDERS
ReDim Preserve Arr(Counter)
Arr(Counter) = sf.path
Counter = Counter + 1
myArr = GetSubFolders(sf.path)
Next
GetSubFolders = Arr
Set sf = Nothing
Set fld = Nothing
Set fso = Nothing
End Function