Запретить функции видить скрытые папки - VB

Private Function tvwvid(a)
    Dim TheFolder As Folder
    Dim fso As New FileSystemObject
    'On Local Error Resume Next
    If fso.GetDrive(a).IsReady Then
        Set TheFolder = fso.GetFolder(a)  'с какого каталога пойдем
        tvwTree.Nodes.Add , , a, a, CS_UNCHECKED
        WorkWithSubFolders TheFolder, a 'поехали
        MsgBox "OK" 'приехали
    Else
        MsgBox "Дисковод пуст!"
    End If
End Function
 
'обрабатывает поддиректории
Sub WorkWithSubFolders(ByVal AFolder, a)
    Dim MoreFolders, TempFolder
    Set MoreFolders = AFolder.SubFolders
    
    If AFolder.Name <> vbNullString Then
        tvwTree.Nodes.Add a, tvwChild, AFolder.Path, AFolder.Name, CS_UNCHECKED
    End If
    For Each TempFolder In MoreFolders
        a = AFolder.Path
        WorkWithSubFolders TempFolder, a
    Next
End Sub