Propiedad SearchSubFolders

True si la búsqueda especificada incluye las subcarpetas de la carpeta especificada por la propiedad LookIn. Boolean de Lectura/Escritura.

Ejemplo

Este ejemplo busca en la carpeta My Documents y en todas las subcarpetas todos los archivos cuyos nombres comiencen con "Cmd". El ejemplo también muestra el nombre y ubicación de cada archivo encontrado.

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .SearchSubFolders = True
    .FileName = "cmd*"
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
         " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With