These are the functions i have to generate an arraylist of all folders in a folder along with all files in a folder
is there any more simple way to just search every file within a folder including all subfolders, and subfolders of subfolders?
Function getDir(ByVal p As String) As ArrayList
getDir = New ArrayList
For Each s As String In My.Computer.FileSystem.GetDirectories(p)
getDir.Add(s)
Next
Return getDir
End Function
Function getDir(ByVal ps As ArrayList) As ArrayList
getDir = New ArrayList
For Each s As String In ps
If dirExist(s) Then
For Each s2 As String In My.Computer.FileSystem.GetDirectories(s)
getDir.Add(s2)
Next
End If
Next
Return getDir
End Function
Function getFiles(ByVal p As String) As ArrayList
getFiles = New ArrayList
For Each s As String In My.Computer.FileSystem.GetFiles(p)
getFiles.Add(s)
Next
Return getFiles
End Function
Function getFiles(ByVal ps As ArrayList) As ArrayList
getFiles = New ArrayList
For Each s As String In ps
For Each s2 As String In My.Computer.FileSystem.GetFiles(s)
getFiles.Add(s2)
Next
Next
Return getFiles
End Function
This post has been edited by citricube: 15 May 2010 - 01:09 PM

New Topic/Question
Reply



MultiQuote





|