遍历所有文件夹的递归函数

遍历所有文件夹的递归函数

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- 遍历所有文件夹的递归函数 (http://www.webasp.net/article/4/3971.htm)

-- 作者：未知
-- 发布日期： 2003-07-12

遍历所有文件夹的递归函数(epower2002)

Sub Main()
    ProcessDirectory("E:\My Documents")
    Console.ReadLine()
  End Sub

  Private Sub ProcessDirectory(ByVal targetDirectory As String)
    If Directory.Exists(targetDirectory) Then
      If Directory.GetFileSystemEntries(targetDirectory).Length = 0 Then
        ' Empty folder
        Console.WriteLine("Folder " & targetDirectory & " is empty")
      Else
        ' Recurse subdirectories of this directory
        Dim subdirectory As String
        Dim subdirectoryEntries As String() = Directory.GetDirectories(targetDirectory)
        For Each subdirectory In subdirectoryEntries
          Console.WriteLine("Folder is " & subdirectory)
          ProcessDirectory(subdirectory)
        Next subdirectory
      End If
    End If
  End Sub

webasp.net