VBA- filter unecessary folders

Question

I have a question about reading files within folders. I found this code:

sub sample()
    Dim FileSystem As Object
    Dim HostFolder As String

    HostFolder =