FSO to search until subfolders

Hi experts!

I just copied this code;
does anybody have an idea on how i can change it
to search til sub folders

Sub file_attrib1()
    Dim fso As New FileSystemObject
    Dim fls As Files
    Dim strText As String
    Dim i As Integer
    
    
    Set fls = fso.GetFolder("D:\BackUp").Files
    
    i = 2
    
        For Each f In fls
            .Cells(i, 1) = f.Name
            .Cells(i, 2) = f.Size
            .Cells(i, 3) = f.DateCreated
            .Cells(i, 4) = f.DateLastModified
            .Cells(i, 5) = f.Type
            .Cells(i, 6) = f.Path
           
            i = i + 1
        Next
    End With
End Sub

Thanks in advance