Counting the no. of Subdirectories

[aroravicky]

I need to count the no. of subdirectories in a directory. Can anybody suggest me how to do that.

Thanks in advance.

Regards,
Vikas

 

[Radhakrishnan]

Hi try this
Imports System.IO

Dim di As New DirectoryInfo("c:\")

Dim diArr As DirectoryInfo() = di.GetDirectories()

Dim dri As DirectoryInfo

Dim i As Integer

For Each dri In diArr

i += 1

Next dri

MessageBox.Show(i)

 

[Neal]

You may be able to name that tune in a few less notes:

dirArr.Length()

 

[vbkev]

If System.IO.Directory.Exists("C:\MyDir") Then

MsgBox(System.IO.Directory.GetDirectories("C:\MyDir").Length())

End If

this is a slightly better way to do it as it checks the directory exists first