获取指定目录中的文件夹名称？

Question

目录中有一个文件夹，可以说是

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

每个用户都有所不同，例如 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)

如果有多个dirs你可能需要这样的东西：

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

编辑：固定代码行1 - 请参阅注释