--
Imports System.IO
'''
''' This class contains directory helper method(s).
'''
Public Class FileHelper
'''
''' This method starts at the specified directory, and traverses all subdirectories.
''' It returns a List of those directories.
'''
Public Shared Function GetFilesRecursive(ByVal initial As String) As List(Of String)
' This list stores the results.
Dim result As New List(Of String)
' This stack stores the directories to process.
Dim stack As New Stack(Of String)
' Add the initial directory
stack.Push(initial)
' Continue processing for each stacked directory
Do While (stack.Count > 0)
' Get top directory string
Dim dir As String = stack.Pop
Try
' Add all immediate file paths
result.AddRange(Directory.GetFiles(dir, "*.*"))
' Loop through all subdirectories and add them to the stack.
Dim directoryName As String
For Each directoryName In Directory.GetDirectories(dir)
stack.Push(directoryName)
Next
Catch ex As Exception
End Try
Loop
' Return the list
Return result
End Function
End Class
Module Module1
'''
''' Entry point that shows usage of recursive directory function.
'''
Sub Main()
' Get recursive List of all files starting in this directory.
Dim list As List(Of String) = FileHelper.GetFilesRecursive("C:\Users\Sam\Documents\Perls")
' Loop through and display each path.
For Each path In list
Console.WriteLine(path)
Next
' Write total number of paths found.
Console.WriteLine(list.Count)
End Sub
End Module
沒有留言:
張貼留言