0

我正在尝试让我的应用在指定目录“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 教程,因此如果不是我要查找的内容,请告诉我。任何帮助将不胜感激。如果您需要更多信息,我很乐意提供。

4

1 回答 1

0

尝试将其更改为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
于 2014-04-05T14:00:21.877 回答