Option Explicit
Dim oFSO As New FileSystemObject
 
Private Sub Combo1_Click()
 
Combo2.Clear
 
Dim oFolder As Folder
 
For Each oFolder In oFSO.GetFolder("V:\test\_" & Combo1.Text).SubFolders
 Combo2.AddItem oFolder.Name
Next 'oFolder
 
End Sub
 
 
Private Sub Combo2_Click()
 
List1.Clear
 
Dim oFile As File
 
 For Each oFile In oFSO.GetFile("V:\test\_" & Combo1.Text & "\" & Combo2.Text & _
   "\")
 
List1.AddItem oFile.Name
 
Next
 
End Sub