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

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-查看注释