遍歷所有文件夾的遞歸函數(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
|
|
當前位置：開發者網絡 >> 技術教程 >> .NET教程 >> 文件IO >> 內容
