Открытие папки и файлов в ней - VB

Формулировка задачи:

В общем такая ситуаци: С помощью CommandDialog указываю нужный файл. Но для работы программы нужно чтобы вместе с этим файлом в FileListBox подгружалась целая папка, которая находится в папке с этим файлом. Папка имеет всегда фиксированное название mp3, а файл (тхт) нет. Не хочется отдельно указывать путь до файла и до папки mp3

Решение задачи: «Открытие папки и файлов в ней»

textual
                            Листинг программы 
                        
                            file = "C:\temp\для форума\01.2002.txt"          'допустим получили из CommandDialog
fldr = Left$(file, InStrRev(file, "\")) & "mp3\" 'формируем путь к папке