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

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
VB.Net » Data Structure » DictionaryScreenshots 
List all Directories under a directory
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 {0files ", DirectoryName.GetFiles().Length)
                Console.WriteLine(" and {0subdirectories ", 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 directoryGet parent directory
2.Create directory with drive letter and without drive letterCreate directory with drive letter and without drive letter
3.Delete a DirectoryDelete a Directory
4.Check if a directory does not exist, create a directoryCheck if a directory does not exist, create a directory
5.Get and set current working directoryGet and set current working directory
6.List all files under a directoryList all files under a directory
7.Make Dictionary based on your own Object
8.Your own Generic List Dictionary Your own Generic List Dictionary
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.