简单的递归目录函数

	Imports System.IO

	Public Sub RecursionFolder(ByVal folder_path As String, ByRef list As ArrayList)
		Dim folder_files As String() = Directory.GetFiles(folder_path)
		For Each s As String In folder_files
			list.Add(s)
		Next
		Dim folder_folders As String() = Directory.GetDirectories(folder_path)
		For Each s As String In folder_folders
			RecursionFolder(s, list)
		Next
	End Sub

调用

		Dim list As New ArrayList(20)
		Dim s1 As String = "R:\123"
		RecursionFolder(s1, list)