我正在尝试让我的应用程序在指定目录中显示文件夹," 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
但我收到错误:
类型'字符串'的值无法转换为System.IO.DirectoryInfo'
DirectCast(DirectorySkins)
中的。我也得到错误:
Class' System.IO.DirectoryInfo'无法编入索引,因为它没有默认属性。
此错误与In Dir()
相关联。此代码基于YouTube教程,因此,如果它不是我要查找的内容,请告知我们。任何帮助将不胜感激。如果您需要更多信息,我很乐意提供。
答案 0 :(得分: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