VBレスキュー(花ちゃん) の Visual Basic 2010 用掲示板(VB.NET 掲示板)

タイトル： 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を使えるようにするには、プロジェクト→参照でなにかロードしないといけないのでしょうか？
誰か、ご教授願います。

- 関連一覧ツリー （

をクリックするとツリー全体を一括表示します）

Listview にアイコンをつけて表示する

のぶ

No.8549

Re: Listview にアイコンをつけて表示する - のぶ 09/01/11-16:44 No.8551
- Re^2: Listview にアイコンをつけて表示する - 花ちゃん 09/01/11-17:06 No.8553
  - Re^3: Listview にアイコンをつけて表示する - のぶ 09/01/11-23:50 No.8556
    - Re^4: Listview にアイコンをつけて表示する - のぶ 09/01/12-00:45 No.8557
  - Re^3: Listview にアイコンをつけて表示する - のぶ 09/01/12-23:15 No.8561

タイトル	： Re^4: Listview にアイコンをつけて表示する
投稿日	： 2009/01/12(Mon) 00:45
投稿者	：のぶ

古いスレッドにレスはつけられません。