List all Directories under a directory

 
Imports System.IO

Module Module1

    Sub Main()
        Dim Root As New DirectoryInfo("C:\")

        Dim Files As FileInfo() = Root.GetFiles("*.*")
        Dim Dirs As DirectoryInfo() = Root.GetDirectories("*.*")

        Console.WriteLine("Root Directories")
        Dim DirectoryName As DirectoryInfo

        For Each DirectoryName In Dirs
            Try
                Console.Write(DirectoryName.FullName)
                Console.Write(" contains {0} files ", DirectoryName.GetFiles().Length)
                Console.WriteLine(" and {0} subdirectories ", DirectoryName.GetDirectories().Length)
            Catch E As Exception
                Console.WriteLine("Error accessing")
            End Try
        Next
    End Sub

End Module

Related examples in the same category

1.	Get parent directory
2.	Create directory with drive letter and without drive letter
3.	Delete a Directory
4.	Check if a directory does not exist, create a directory
5.	Get and set current working directory
6.	List all files under a directory
7.	Make Dictionary based on your own Object
8.	Your own Generic List Dictionary
9.	Add some elements to the dictionary. There are no duplicate keys, but some of the values are duplicates.
10.	The Add method throws an exception if the new key is already in the dictionary.
11.	The Item property is the default property
12.	The default Item property can be used to change the value associated with a key
13.	If a key does not exist, setting the default Item property for that key adds a new key/value pair
14.	The default Item property throws an exception if the requested key is not in the dictionary
15.	TryGetValue can be a more efficient way to retrieve values
16.	ContainsKey can be used to test keys before inserting them
17.	When you use foreach to enumerate dictionary elements, the elements are retrieved as KeyValuePair objects.
18.	To get the values, use the Values property
19.	To get the keys alone, use the Keys property
20.	Use the Remove method to remove a key/value pair

List all Directories under a directory : Dictionary « Data Structure « VB.Net

Related examples in the same category