Class getFolders
    Shared Sub Main()
        For Each Dir As String In Directory.GetDirectories("X:\Elever")
            Console.WriteLine(Dir)
        Next
    End Sub
End Class