tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
TreeViewで指定フォルダ以下の全ファイルのツリー表示(VB.NET) ( No.0 )  [親スレッドへ]
日時: 2015/02/11 19:20
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[ツリービュー][ファイル][フォルダー]                            *
* キーワード:TreeView,指定フォルダ,サブフォルダ,ファイルのツリー表示,子ノード,   *
***********************************************************************************
タイトル : TreeViewでの子ノード追加の方法
記 事 No : 8487
投 稿 日 : 2008/12/21(Sun) 02:03
元質問者 : のぶ  

1回の処理ですべてのフォルダ構成をTreeViewで表示させたいのですが、どうしても
親→子→子→ に表示できず、 親→子 でストップししまいすべてのサブフォルダが
1つ目の子配下に表示されてしまいます。

-----------------------------------------------------------------------------------
記事No : 8493
投稿日 : 2008/12/23(Tue) 02:58
回答者 : 魔界の仮面弁士  
-----------------------------------------------------------------------------------

環境が書かれていなかったので、現行バージョン(VB2008)で記述しています。

Public Class Form1
    Sub Button1_Click() Handles Button1.Click
        Dim sFolder As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        TreeView1.ShowNodeToolTips = True
        TreeView1.BeginUpdate()
        TreeView1.Nodes.Clear()
        AddNode(TreeView1.Nodes, sFolder)
        TreeView1.EndUpdate()
    End Sub

    Sub AddNode(ByVal Nodes As TreeNodeCollection, ByVal sFolder As String)
        Dim N = Nodes.Add(System.IO.Path.GetFileName(sFolder))
        Try
            For Each sName In My.Computer.FileSystem.GetDirectories(sFolder)
                AddNode(N.Nodes, sName)
            Next
        Catch ex As UnauthorizedAccessException
            N.ToolTipText = ex.Message
            N.ForeColor = Color.Red
        End Try
        N.EnsureVisible()
    End Sub
End Class

-----------------------------------------------------------------------------------
上記の実行結果                   同様の当サイトのサンプルの結果



 [スレッド一覧へ] [親スレッドへ]