Получить имя папки в указанной директории?

Question

Существует один папка находится в директории, позволяет сказать, что его в

C: \ Users \ User \ AppData \ Roaming \ Mozilla \ Firefox \ Profiles \

он отличается от everyuser, например 1rituum9 .default названная папка.

Пробовал это без везения, оно пустое.

Dim filepath As String = "%Appdata%\Mozilla\Firefox\Profiles\" 
Dim fi As New IO.FileInfo(filepath) 
MessageBox.Show(fi.Name) 

Каков правильный способ получить имя папки в указанном каталоге?

Answer 1

Вы можете попробовать это:

Dim filepath As String = Environment.GetEnvironmentVariable("appdata") & "\Mozilla\Firefox\Profiles\" 
Dim di As New IO.DirectoryInfo(filepath) 
MessageBox.Show(di.GetDirectories()(0).Name) 

, если есть больше чем один каталоги у может понадобиться что-то вроде:

For Each Dir As IO.DirectoryInfo In di.GetDirectories() 
ListBox1.Items.Add(Dir) 
Next 

Edit: Fixed Code Line 1 - см комментарии