Få liste af foldere ind i array.

Noget i denne stil?

Imports System.IO
Imports System.Collections.Generic

Module Module1

    Sub Main()
        Dim dirList As List(Of String) = New List(Of String)()
        Dim rootDi As DirectoryInfo = New DirectoryInfo("C:\\Windows")

        ScanDirectory(rootDi, dirList)

        For Each dirName As String In dirList
            Console.WriteLine(dirName)
        Next

    End Sub

    Sub ScanDirectory(ByVal di As DirectoryInfo, ByVal dirList As List(Of String))
        For Each subDi As DirectoryInfo In di.GetDirectories()
            dirList.Add(subDi.FullName)
            ScanDirectory(subDi, dirList)
        Next
    End Sub

End Module

Det virker jo bare, lægger du et svar

Svar :^)

Du skal nok lige ændre koden en smule - til:

    Sub ScanDirectory(ByVal di As DirectoryInfo, ByVal dirList As List(Of String))
        dirList.Add(subDi.FullName)
        For Each subDi As DirectoryInfo In di.GetDirectories()
            ScanDirectory(subDi, dirList)
        Next
    End Sub

Så kommer rod-folderen også med.