Hi

You are familiar with

Sub test()
Dim F As Variant
F = Application.GetOpenFilename
If Not F = False Then MsgBox CStr(F)
End Sub

?

What you request is possible, but how will you know where the starting
folder is and that it's always two levels above where the file is ?

HTH. Best wishes Harald

"dcstech" skrev i melding
...
I would like to be able to open a folder and list all the subfolders in
one
listbox. Then I would like to be able to select a folder from that
listbox
and display all the files in another listbox