Get Subfolder names into an array

[MM91]

Hello I am trying to populate an array with subfolder names based on a path. I can get the varient "s" to get the correct data but when I try to populate an array it says arguement not optional. please help!

Sub SFfinder()
Dim SerialnoSF As Collection, vFile
Dim serialnofolderarr As String
Dim i As Integer
Dim numsf As Integer

serialnofp = "C:\Users\mattr\Desktop\Projects\Serial Numbers\" & serialnobase


Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(serialnofp)
Set sf = f.SubFolders
For Each f1 In sf
s = s & f1.Name
s = s & vbCrLf
Next

SerialnoSF = s

numsf = SerialnoSF.Count
ReDim serialnofolderarr(1 To numsf)

For i = 1 To numsf
serialnofolderarr(i) = SerialnoSF(i)
Next


'MsgBox serialnosub


MsgBox Join(serialnofolderarr, vbCrLf)
End Sub

 

[MM91]

OK I think i figured it out it seems to be working, if there is a more effeciant way for me to do this please let me know!

Sub SFfinder()
Dim serialnofolderarr() As String
Dim i As Integer
Dim numsf As Integer

serialnofp = "C:\Users\mattr\Desktop\Projects\Serial Numbers\" & serialnobase


Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(serialnofp)
Set sf = f.subfolders
numsf = f.subfolders.Count
i = 1
ReDim serialnofolderarr(1 To numsf)
For Each f1 In sf
s = s & f1.Name
s = s & vbCrLf
serialnofolderarr(i) = s
i = i + 1
s = ""
Next


MsgBox Join(serialnofolderarr, vbCrLf)
End Sub