VBA cascading listboxes.

yea.. this is interesting. i am doing this as a project and right now I am able to get the list of all folders by browsing through them. as something is found, it is stored in an array and then used for displaying later. however i am not able to display this list in my listbox.

btw, by Form, i mean userform. that's more intuitive for a novice user instead of a form on an excel sheet. the users at my end are typically faced with " where should I click next??" type of question. so making life easy for them.

i am having trouble finding the all folders and all files in a given directory path. my root path remains fixed. i am unable to loop thorugh all subfolders and files within each subfolder and display them. can you help please?


Sub ProcessFiles(strFolder As String, strFilePattern As String)
Dim strFileName As String
Dim strFolders() As String 'Array for Folder names
Dim strFiles() As String 'Array for filename
Dim iFolderCount As Integer
Dim iFilesCount As Integer
Dim i As Integer

'Collect child folders
strFileName = Dir(strFolder & "\", vbDirectory)

Do Until strFileName = ""
If (GetAttr(strFolder & "\" & strFileName) And vbDirectory) = vbDirectory Then

If Left$(strFileName, 1) <> "." Then ' check if its a folder or file

ReDim Preserve strFolders(iFolderCount) ' if folder then add to folders array

strFolders(iFolderCount) = strFolder & "\" & strFileName '

iFolderCount = iFolderCount + 1
Else

ReDim Preserve strFiles(iFilesCount)
strFiles(iFilesCount) = strFolder & "\" & strFileName
iFilesCount = iFilesCount + 1
End If

End If
strFileName = Dir$()

Loop

'process files in current folder
strFileName = Dir$(strFolder & "\" & strFilePattern)


Do Until strFileName = ""

ListBox2.AddItem strFolder & "\" & strFileName

strFileName = Dir(Dir$())

Loop

'Look through child folders

For i = 0 To iFolderCount - 1

ProcessFiles strFolders(i), strFilePattern 'call processfiles to get files in the folders stored in the array

Next i

it does not loop through all subfolders and all files within all fodlers. just gives one file each folder

Foxguy: thansk for that. It helped a lot. I am still not able to see the files in the folders based on the value in text box. my files are usually "*.xl*" i.e xls or xlsm or xlsx. but i dont get to see any files which have these extns. i see only xls.

But I must say that it is very close to what i am trying to do. i now need to pass the path of the file in the caption to my other code in macro. how do i do that?

Foxguy: thansk for that. It helped a lot. I am still not able to see the files in the folders based on the value in text box. my files are usually "*.xl*" i.e xls or xlsm or xlsx. but i dont get to see any files which have these extns. i see only xls.

I must say that it is very close to what I am trying to do.
Ammendment: I now need to pass the path of the file in the MsbBox to my other code in macro. how do i do that?

I got this done. changed my attritonsample function to pass two parameters