vba-loop through subfolders

[ER_Neha]

How to loop through folders and their sub folders in vba. I tried using this code but its not working for me. my folder variable gets the correct name i.e. "d:\neha" but my variable sf for subfolder is not working

Sub ShowFolderList()
    Dim fso, folder, f1, sf
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("d:\neha")
    Set sf = folder.subfolders
    For Each f1 In sf
       If f1.name = "n1" Then
        MsgBox " found"
        End If
       
    Next
   
End Sub

 

[Fluff]

Not End Sub, just End

 

[ER_Neha]

Not End Sub, just End

Hello Fluff, thank u it worked the way i wanted, but can you please help me to check how much time the total procedure took, i tried using timer function , but its not functioning properly.

 

[Fluff]

How did you setup the timer?