Fange alle underliggende kataloger til et valgt katalog.

Brug filesystemobject\'s folders collection

Hej

Sådan her list du alle subdirs i en mappe ind i en listbox

put en listbox på din form og kald den list1 og skriv.

Loaddir \"C:\\windows\" , list1


Function LoadDir(CurrentPath As String, Lstbox as ListBox)
   
    Dim intN As Integer, intDirectory As Integer
    Dim Strfilename As String, strDirectoryList() As String
   


    If Right$(CurrentPath, 1) = \"\\\" Then
    Else
    CurrentPath = CurrentPath & \"\\\"
   
    End If
 
    Strfilename = LCase(Dir(CurrentPath, vbDirectory))
    Do While Strfilename <> \"\"
    DoEvents

      If Strfilename <> \".\" And Strfilename <> \"..\" And _
            Strfilename <> \"pagefile.sys\" Then

            If GetAttr(CurrentPath & Strfilename) _
                And vbDirectory Then
                intDirectory = intDirectory + 1
                ReDim Preserve strDirectoryList(intDirectory)
                strDirectoryList(intDirectory) = CurrentPath _
                    & Strfilename

                lstbox.Add CurrentPath & Strfilename

            End If
        End If

        Strfilename = Dir

        DoEvents

    Loop



    For intN = 1 To intDirectory
        LoadDir strDirectoryList(intN) & \"\\\"
    Next intN


End Function







/Mix