Check if Folder exists

Hello,

I am trying to check if a folder exists in a directory. I found some great code that does this if you already have the full path. I would like to check if a folder exists who's name contains specific numbers. Is there anyway to modify this existing code to check if a folder exists that contains a specific number? Instead of listing the full path in column A I wanted to list the specific numbers I am looking for. Once found and if possible I also need the full folder name printed on the next adjacent column (c). Any help would be great!

Public Function FileFolderExists(strFullPath As String) As Boolean
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: Check if a file or folder exists
    
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then
        FileFolderExists = True
    Else
        FileFolderExists = False
    End If
    
End Function
Sub Macro1()
       
    For Each Cell In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        If IsEmpty(Cell) = True Then
            Cell.Offset(0, 1).Value = "No suggested directory has been entered into " & Cell.Address(False, False)
        ElseIf FileFolderExists(Cell.Value) = True Then
            Cell.Offset(0, 1).Value = "Folder Exists"
        Else
            Cell.Offset(0, 1).Value = "Folder Does Not Exist"
        End If
    Next Cell
    
End Sub

Hi Trebor,

Thank you so much for your response. I have a 5 digit number e.g. 12345 that can be anywhere in the folder name. C:\Program Files\Microsoft Office\Office12345-data_for_other_data. Can the instr function be used, really not sure.

Hi Leith,

The root directory would always be the same e.g. "C:\Program Files\Microsoft Office\", the values in A2 and down would be a list of 5 digit numbers e.g. 45612 that is present in the rest of the folder name. This could be C:\Program Files\Microsoft Office\Data_for_Project_(45612). Sometimes the number is in front of Data but the numbers are always unique.
I'm trying to get the macro to check if a folder exists with 45612 in the folder name under the root directory C:\Program Files\Microsoft Office\. If it does exist then print the full folder name in the adjacent cell to the right.
I was hoping that if the macro could tell me the folder exists then it could also return the full folder name. I hope this makes what I'm trying to do a bit more clear. The end result would give me a list of folder directories that i can use to manipulate excel files contained within. Thanks again for your help!

Hi Leith,

The layout looks good but I was getting a type mismatch runtime error on the line below.

If Dir("C:\Program Files\Microsoft Office\" & "*" & Cell.Text & "*", vbDirectory) Then

Any Ideas?

Thank You.