P
pmclinn
Herfried K. Wagner wrote this function but it only walks one level of
subfolders. How do you update this function so that if it finds all
sub directory files and returns the result like this:
Example of what I need:
Folder A
File 1
File 2
Folder SubA
File 1
File 2
Return to look like this:
File1
File2
SubA\File1
SubA\File2
Herfried Code:
Private Function GetFilesAsFileInfo( _
ByVal strPath As String, _
ByRef astrPatterns As String() _
) As ArrayList
Dim di As DirectoryInfo = New DirectoryInfo(strPath)
Dim al As New ArrayList()
Dim s As String
Dim afi As FileInfo()
Dim fi As FileInfo
For Each s In astrPatterns
afi = di.GetFiles(s)
For Each fi In afi
al.Add(fi)
Next fi
Next s
Return al
End Function
End Module
subfolders. How do you update this function so that if it finds all
sub directory files and returns the result like this:
Example of what I need:
Folder A
File 1
File 2
Folder SubA
File 1
File 2
Return to look like this:
File1
File2
SubA\File1
SubA\File2
Herfried Code:
Private Function GetFilesAsFileInfo( _
ByVal strPath As String, _
ByRef astrPatterns As String() _
) As ArrayList
Dim di As DirectoryInfo = New DirectoryInfo(strPath)
Dim al As New ArrayList()
Dim s As String
Dim afi As FileInfo()
Dim fi As FileInfo
For Each s In astrPatterns
afi = di.GetFiles(s)
For Each fi In afi
al.Add(fi)
Next fi
Next s
Return al
End Function
End Module