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

Private Sub Command1_Click()
Dim Fold As String 'неизвестная папка, лежащая в конце постоянного пути
Dim Path As String 'постоянный путь, в конце которого лежит неизвестная папка
Path = "c:\Temp\a\" 'естественно, здесь должен быть ВАШ постоянный путь!
Fold = Dir(Path, vbDirectory)
Do While Fold <> ""
  If Fold <> "." And Fold <> ".." Then
    MsgBox Fold
    Exit Do
  End If
  Fold = Dir
Loop
End Sub

Sub send_path1()
Dim Fold As String 'неизвестная папка, лежащая в конце постоянного пути
Dim Path As String 'постоянный путь, в конце которого лежит неизвестная папка
Path = "c:\Temp\a\" 'естественно, здесь должен быть ВАШ постоянный путь!
Fold = Dir(Path, vbDirectory)
Do While Fold <> ""
  If Fold <> "." And Fold <> ".." Then
    MsgBox Fold
    Exit Do
  End If
  Fold = Dir
Loop
End Sub
 
Private Sub Form_Load()
Call send_path1

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

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
папка_юзера$ = Mid(Profil$, 15)
Полный_путь_Лисы$ = windir & "\Application Data\Mozilla\Firefox\Profiles\" & Mid(Profil$, 6)
 
MsgBox папка_юзера$
MsgBox Полный_путь_Лисы$
 
 
End Sub