Mega Code Archive

 

Categories / VB.Net Tutorial / Stream File

 

Get all directories under current directory

Imports System.IO Public Class Tester     Public Shared Sub Main         Dim myDirectoryInfo As DirectoryInfo         myDirectoryInfo = New DirectoryInfo("c:\\Java_dev")         Dim myDirectoryInfos() As DirectoryInfo         Dim myDir As DirectoryInfo         Try             myDirectoryInfos = myDirectoryInfo.GetDirectories()             For Each myDir In myDirectoryInfos                 Console.WriteLine(myDir.FullName)             Next         Catch ex As Exception             Console.WriteLine(ex.Message)         End Try     End Sub End Class c:\Java_dev\backup c:\Java_dev\sdk c:\Java_dev\support c:\Java_dev\WEB