Как через FileSystemObject узнать имя папки? - VB

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

Имеется путь(постоянный), единственное, что различается на всех компьютерах, это название папки, оно обычно может быть 57fkf902df или что-то в этом роде) Задача такова: нужна узнать имя этой папки и записать в переменную Буду очень благодарен всем откликнувшимся)))

Решение задачи: «Как через FileSystemObject узнать имя папки?»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
windir = Environ("USERPROFILE")
FileName$ = windir & "\Application Data\Mozilla\Firefox\profiles.ini"
' Счиываем данные с файла настроек
intFH = FreeFile()
Open FileName$ For Input As intFH
Do Until EOF(intFH)
Line Input #intFH, Patsh$
If InStr(Patsh$, "Profiles") > 0 Then Profil$ = Patsh$
Loop
Close #intFH
MsgBox windir & "\Application Data\Mozilla\Firefox\Profiles\" & Mid(Profil$, 6)
 
End Sub
                        