タイトル : Re^4: Listview にアイコンをつけて表示する 投稿日 : 2009/01/12(Mon) 00:45 投稿者 : のぶ
下記のやつを見本にトライしてみたのですが・・・。 >> msdn.microsoft.com/ja-jp/library/ms404308.aspx 上記だと dir をつかってこんな感じにロジックが書いてあるのですが、 Dim file As FileInfo For Each file In dir.GetFiles() 省略 If Not (imageList1.Images.ContainsKey(file.Extension)) Then imageList1.Images.Add(file.Extension, iconForFile) End If item.ImageKey = file.Extension listView1.Items.Add(item) Next file 自分の方は shell.application でかいていたので、こんな感じに変えてみたのですが objShell2 = CreateObject("Shell.Application") fol2 = objShell2.NameSpace(e.Node.FullPath & "\") 'Windowsフォルダを取得 fc2 = fol2.Items() For Each sName2 In fc2 省略 If Not (imageList1.Images.ContainsKey(sName2.Extension)) Then ↑でエラーになってしまいます。公開メンバ 'Extension' は型 'FolderItem2' に見つかりませんでした。 Next なので、Dim file As FileInfo を定義してなんとかしようとしたら、 FileInfo が定義されていませんと・・・。 FileInfoを使えるようにするには、プロジェクト→参照でなにかロードしないといけないのでしょうか? 誰か、ご教授願います。 |