Mega Code Archive

 

Categories / VB.Net / File Directory

 

Directory EnumerateDirectories returns an enumerable collection of directory names in a specified path

Imports System.Collections.Generic Imports System.IO Imports System.Linq Module Module1     Sub Main()         Try             Dim dirPath As String = "\\reports"             Dim dirs = From folder In Directory.EnumerateDirectories(dirPath)             For Each folder In dirs                 Console.WriteLine("{0}",folder.Substring(folder.LastIndexOf("\") + 1))             Next             Console.WriteLine("{0} directories found.",dirs.Count.ToString())             Dim workDirs As List(Of String) = New List(Of String)(dirs)         Catch PathEx As Exception             Console.WriteLine(PathEx.Message)         End Try     End Sub End Module