Dim oFSO As New FileSystemObject
 
Private Sub Form_Load()
Dim oFolder As Folder
  Combo1.Clear
  For Each oFolder In oFSO.GetFolder(App.Path).SubFolders
    Combo1.AddItem oFolder.Name
  Next
End Sub
 
Private Sub Combo1_Click()
Dim oFolder As Folder, oFile As File
  List1.Clear
  Set oFolder = oFSO.GetFolder(App.Path & "\" & Combo1.Text)
  For Each oFile In oFolder.Files
    List1.AddItem oFile.Name
  Next
End Sub