find files recursive and save in dymanic array (VBA) - arrays

Question

I want to make use of dynamic arrays in VBA in order to save the found strings and use the FileSystemObject to find the files.
The code I currently use is this one
Private Sub cmdStartSearch_Click()
Dim resultList(0) As String
Call FindFile(resultList, ".png", "Q:\", True)
End Sub
Private Sub FindFile(ByRef resultList() As String, target As String, ByVal aPath As String, useSubfolders As Boolean)
Dim myFileSystemObject As FileSystemObject, curFolder As folder, folder As folder
Dim folColl As Folders, file As file, fileColl As Files
Set myFileSystemObject = New FileSystemObject
Set curFolder = myFileSystemObject.GetFolder(aPath)
Set folderList = curFolder.SubFolders
Set fileList = curFolder.Files
For Each file In fileList
ReDim Preserve resultList(1 To UBound(resultList) + 1) As String
If InStr(file.Name, target) > 0 Then
resultList(UBound(resultList)) = file.Name
Debug.Print file.Name
End If
Next
If useSubfolders Then
For Each folder In folderList
DoEvents 'Yield execution so other events may be processed
If Not foundTarget Then
FindFile resultList, target, folder.Path, useSubfolders
End If
Next
End If
Set myFileSystemObject = Nothing
Set curFolder = Nothing
Set folderList = Nothing
Set fileList = Nothing
End Sub
This fails however with Array is fixed or or temporarily locked.
How can I get around this problem, or solve the original one?

Answer 1

I feel this has a far better/easier solution. What you do is loop through the file list as you did but then return a long string with the file names and then finally break it using the Split function which will yield you a String array anyway.
Your code could simply change as,
Private Sub cmdStartSearch_Click()
Dim resultList() As String
resultList = Split(FindFile(".png", "Q:\", True), ";")
End Sub
Private Function FindFile(target As String, ByVal aPath As String, useSubfolders As Boolean) As String
Dim retStr As String
Dim myFileSystemObject As FileSystemObject, curFolder As folder, folder As folder
Dim folColl As Folders, file As file, fileColl As Files
Set myFileSystemObject = New FileSystemObject
Set curFolder = myFileSystemObject.GetFolder(aPath)
Set folderList = curFolder.SubFolders
Set fileList = curFolder.Files
For Each file In fileList
If InStr(file.Name, target) > 0 Then
retStr = retStr & ";" & file.Name
Debug.Print file.Name
End If
Next
If useSubfolders Then
For Each folder In folderList
DoEvents 'Yield execution so other events may be processed
If Not foundTarget Then
retStr = retStr & ";" & FindFile(target, folder.Path, useSubfolders)
End If
Next
End If
Set myFileSystemObject = Nothing
Set curFolder = Nothing
Set folderList = Nothing
Set fileList = Nothing
If Len(retStr) > 0 Then retStr = Right(retStr, Len(retStr)-1)
FindFile = retStr
End Function
Why are the variables folderList, fileList, foundTarget not declared in the context?