Einen schönen guten Tag,
ich habe ein Makro, welches sehr gut funktioniert.
Leider habe ich ein Problem damit.
Es sucht nur einen Unterordner ab und nicht 2 oder mehr.
Kann man das ändern?
Private Sub SearchFiles(strFolder As String, strFileName As String, _
Optional blnSubFolder As Boolean = False)
Dim objFolder As Object
Dim objFile As Object
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder(strFolder).Files
If objFile.Name Like strFileName Then
ReDim Preserve strList1(lngCount)
strList1(lngCount) = strFolder
ReDim Preserve strList(lngCount)
strList(lngCount) = objFile.Name
lngCount = lngCount + 1
End If
Next
If blnSubFolder = True Then
For Each objFolder In objFSO.GetFolder(strFolder).SubFolders
SearchFiles strFolder & objFolder.Name, strFileName
Next objFolder
End If
End Sub
vielen Dank
