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
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