How to loop through numerous sub folders and find if a cell value matches a folder name using excel VBA?

Question

I have rows of data in excel, in which some of it is needed to path the location of the sub folders and where one certain cell in that row is what is searched for within the sub folders of the file location.

Search cell/column - Range("E65000").End(xlUp).Value

Sub folders location - MAIN_PATH & "1. Invoices+BUFs - " & Range("D65000").End(xlUp).Value & "\" & Range("C65000").End(xlUp).Value & " - " & Range("AK65000").End(xlUp).Value & "\"

So the first row is the first instance of the loop, second row comes next, then third row and so on.

If the data from a cell in column E matches that of a folder within the subfolders, then it is counted as a duplicate.

Any idea how I can implement this?

nwhaught nwhaught · Accepted Answer · 2015-06-02T13:17:57

Dir() will return an empty string if the supplied path is not found.

Dim subFolderLocation as String
Dim isDup as Boolean

'Loop this
If Dir(subFolderLodation & "\") = "" Then
    isDup = True
Else
    isDup = False
End If
'end loop

How to loop through numerous sub folders and find if a cell value matches a folder name using excel VBA?

1 Answers