学习首页 百科 人生课堂 办公软件 英语学习 操作系统 故事会 编程资料 软件学习 设计

输入您的搜索字词 提交搜索表单

铭瑶网 >> 学习首页 >> 软件 >> 遍历所有文件夹的递归函数

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

【字体： 大中小】 时间:2008-4-11 来源:互联网 作者:study

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

遍历所有文件夹的递归函数(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 

查看/参与:讨论/评论 相关文章：Vb.net