' project created on 10/05/2007 at 20:31
Imports System
 
Namespace ListDirectories
	Class MainClass
 
		Public Shared  Sub Main(ByVal args() As String)
			ListDirectories (New System.IO.DirectoryInfo ("/var/tmp"))
		End Sub
 
		Private Shared  Sub ListDirectories(ByVal CurrentDir As _
  System.IO.DirectoryInfo)
			For Each Dir As System.IO.DirectoryInfo In CurrentDir.GetDirectories()
				Console.WriteLine (Dir.FullName)
				ListDirectories (Dir)
			Next
		End Sub
 
	End Class
End Namespace
 
'----------------------------------------------------------------
' Converted from C# to VB .NET using CSharpToVBConverter(1.2).
' Developed by: Kamal Patel (http://www.KamalPatel.net) 
'----------------------------------------------------------------