Alle zichtbare mappen weergeven in combobox

[Victorr99]

Beste Helpmijers,

Ik ben op zoek naar een aanvulling voor mijn code die de mappen filtert naar alleen zichtbare mappen.
Met zichtbare mappen bedoel ik niet de mappen die alleen zichtbaar zijn als je die via het menu: "Mapopties, tabblad: Weergave, Verborgen mappen en bestanden weergeven" kunt zien. Dus het is de bedoeling dat de verborgen mappen niet worden weergeven in mijn combobox.

Hier de code die ik tot nu toe gebruik:

Private Sub BlaBlaBla()

Dim sFolder As String
Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim i As Integer

i = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(TextBox1.Text)

For Each objSubFolder In objFolder.subfolders

    sFolder = objSubFolder.Name
    ComboBox1.AddItem sFolder

    i = i + 1

Next objSubFolder

End Sub

Alvast bedank!

Mvg, Victor

 

[edmoor]

Probeer deze maar eens:

Private Sub BlaBlaBla()
    Dim objFSO       As Object
    Dim objFolder    As Object
    Dim objSubFolder As Object
    Dim i            As Integer
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(TextBox1.Text)
    i = 1

    For Each objSubFolder In objFolder.subfolders
        If Not objSubFolder.Attributes And 2 Then
            ComboBox1.AddItem objSubFolder.Name
            i = i + 1
        End If
    Next objSubFolder

End Sub

Zie voor uitleg:
https://technet.microsoft.com/en-us/library/ee198707.aspx

 

[snb]

Dat kan met :

Sub M_snb()
   Listbox1.list=split(CreateObject("wscript.shell").exec("cmd /c dir G:\OF\*.* /AD-H /b").stdout.readall,vbcrlf)
End Sub

Vervang G:\OF\ door het pad van jouw folder/map/directory