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