is it possible to have multiple searches in a loop?

[iknowu99]

Application.FileSearch is nested >> do they interfere? specifically the with statements

Sub withINSIDEwith()
'mock example

With Application.FileSearch
    .LookIn = "C:\abc\"
    .Filename = "*.xls"
    .FileType = msoFileTypeExcelWorkbooks
    .SearchSubFolders = True
    .Execute
    If .Execute > 0 Then
        'loop through all found files
        For IFoundFiles = 1 To .FoundFiles.Count
            
            'set incidental variables
            Pos = InStrRev(.FoundFiles(IFoundFiles), "\")
            file = Right(.FoundFiles(IFoundFiles), Len(.FoundFiles(IFoundFiles)) - Pos)
            path = Left(.FoundFiles(IFoundFiles), Pos)
            
            Set wb = Workbooks.Open(path & file)

                'do some stuff here
                '********
                'do some stuff here
                
                                    With Application.FileSearch
                                        .LookIn = "C:\jk\"
                                        .Filename = "Foo*.xls"       'a different file is found here
                                        .FileType = msoFileTypeExcelWorkbooks
                                        .SearchSubFolders = True
                                        .Execute
                                        If .Execute > 0 Then
                                            'loop through all found files
                                            For KfoundFiles = 1 To .FoundFiles.Count
                                                
                                                'set incidental variables
                                                pos2 = InStrRev(.FoundFiles(KfoundFiles), "\")
                                                file2 = Right(.FoundFiles(KfoundFiles), Len(.FoundFiles(KfoundFiles)) - pos2)
                                                path2 = Left(.FoundFiles(KfoundFiles), pos2)
                                                
                                                Set wb2 = Workbooks.Open(path2 & file2)
                                                
                                                'do more stuff here
                                                '********
                                                'do more stuff here
                                                
                                    Next KfoundFiles
                                    End If 'If .Execute > 0 Then
                                    End With

Next IFoundFiles
End If 'If .Execute > 0 Then
End With


End Sub

 

[jindon]

Try

Sub withINSIDEwith()
Dim i As Byte, fn As String, myList
myList = Array(Array("C:\abc\","*.xls"), Array("C:jk\","Foo*.xls"))
For i = 0 To UBound(myList)
     fn = Dir(myList(i)(0) & myList(i)(1))
     Do While fn <> ""
          Set wb = Workbooks.Open(myList(i)(0) & myList(i)(1))
          ' do your stuff
          fn = Dir()
     Loop
Next
End Sub

 

[iknowu99]

that's what i am talking about!!