获取目录中子目录的名称

Question

我正在尝试编写一个Visual Basic程序，它获取目录中所有子目录的名称，将它们写入数组，然后将数组的内容写入dat文件。但是我遇到了数组没有填满目录名的问题。这是我下面的代码。

For Each directoryName As String In IO.Directory.GetDirectories(appdata)
       allAppdataDirectories(appdataNameId) = Dir(appdata)
       appdataNameId += 1
       ReDim Preserve allAppdataDirectories(appdataNameId)
Next

上面的代码片段应该可以获取appdata文件夹中的所有目录名称。假设已经声明了此代码中的变量和数组，那么它有什么问题？我知道写入数据文件是有效的，因为我已经在这个程序的另一个上下文中完成了它并且工作得很好。

Answer 1

您没有使用目录名称变量 也许使用列表而不是数组也是最容易的 检查此解决方案是否适合您：

Dim allAppDataDirectories As New List(Of String)
For Each directoryName As String In IO.Directory.GetDirectories(appData)
    allAppDataDirectories.Add(directoryName)
Next

'Finally, if you need an array you can use allAppDataDirectories.ToArray()