1 2 3 4 5 6 7 8 9 10 11 12 |
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 |
调用
1 2 3 |
Dim list As New ArrayList(20) Dim s1 As String = "R:\123" RecursionFolder(s1, list) |