指定したディレクトリ "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 のチュートリアルに基づいているため、探しているものではない場合はお知らせください。どんな助けでも大歓迎です。さらに情報が必要な場合は、喜んで提供します。