Sub ListDirectories(ByVal Path As String)
		Try
			Dim FolderInfo As New IO.DirectoryInfo(Path)
			Dim Folder As IO.DirectoryInfo = Nothing
 
			For Each Folder In FolderInfo.GetDirectories()
				ListFolder(Folder.FullName)
				ListDirectories(Folder.FullName)
			Next
		Catch ex As System.Exception
 
		End Try
	End Sub
 
	Sub ListFolder(ByVal Folder As String)
		Dim AddFolder As New ListViewItem(Folder)
		lvFolders.Items.Add(AddFolder)
	End Sub