如何在组合框中列出目录？ （在 Visual Basic 中）

Question

我正在尝试让我的应用程序在指定目录“Application.startupPath & “\Skins”中显示文件夹，并将它们放入一个组合框。从语音标记中，您可能会看到我想要应用程序做什么做。我发布了一个我正在尝试使用的代码示例。我搜索了 YouTube、Google 甚至这个网站，但没有任何帖子有帮助。

Dim DirectorySkins As String = Application.StartupPath & "\Skins"
Try
    Dim Dir As DirectoryInfo = DirectCast(DirectorySkins, DirectoryInfo)
    For Each DirInfo As DirectoryInfo In Dir()


    Next
Catch ex As Exception
    ToolsError.ListBox1.Items.Add(ex.Message)
End Try

但我得到了错误：

“String”类型的值无法转换为“System.IO.DirectoryInfo”

在DirectCast(DirectorySkins)。我也得到了错误：

类“System.IO.DirectoryInfo”无法索引，因为它没有默认属性。

此错误与In Dir() 相关联。此代码基于 YouTube 教程，因此如果不是我要查找的内容，请告诉我。任何帮助将不胜感激。如果您需要更多信息，我很乐意提供。

Answer 1

尝试将其更改为Dim DirectorySkins As New DirectoryInfo(Application.StartupPath & "\Skins")。这是你想要达到的目标吗？

Dim DirectorySkins As New DirectoryInfo(Application.StartupPath & "\Skins")

Try
    For Each DirInfo As DirectoryInfo In DirectorySkins.GetDirectories()


    Next
Catch ex As Exception
    ToolsError.ListBox1.Items.Add(ex.Message)
End Try