７．ツリービュー(TreeView)の使用例

１．ツリービュー(TreeView)にフォルダーとファイルをツリー表示する ２．　 ３．　 ４．　 ５．サンプル投稿用掲示板に掲載しているツリービュー(TreeView)に関するサンプル ６．サンプル集に収録している未掲載のツリービュー(TreeView)に関するサンプルの紹介

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：Microsoft Scripting Runtime　　　　　　　　　　参照設定方法参照 使用 API：なし その他　：プロジェクト→コンポーネントで MicroSoft Windows Common Controls 6.0(SP6) (MSCOMCTL.OCX) にチェックを、 　　　　：入れ表示されたコントロール(TreeView1)をフォームに貼り付けて下さい。

１．ツリービュー(TreeView)にフォルダーとファイルをツリー表示する

Option Explicit Private Sub Command1_Click() 　　Dim Fso　　　　　As FileSystemObject 　　Dim TargetFolder As Folder 　　Dim TargetNode　 As Node 　　Set Fso = New FileSystemObject 　　TreeView1.Nodes.Clear 　　'指定のフォルダー名を取得 　　Set TargetFolder = Fso.GetFolder("C:\Program Files\Microsoft Visual Studio") 　　'指定フォルダーのフルパスを取得 　　Set TargetNode = TreeView1.Nodes.Add(, , , TargetFolder) 　　'指定フォルダー内のファイル及びサブフォルダーを取得 　　Call sFolderSearch(TreeView1, TargetNode, TargetFolder) 　　TreeView1.Nodes(1).Expanded = True 　　TreeView1.Nodes(2).Expanded = True 　　Set Fso = Nothing End Sub Private Sub sFolderSearch(ByVal MyTreeView As TreeView, _ 　　　　　　　　　　　　　ByVal MyNode As Node, ByVal MyFolder As Folder) 　　Dim mySubFolder As Folder 　　Dim myFile　　　As File 　　Dim ChildNode　 As Node 　　'サブフォルダーを取得 　　For Each mySubFolder In MyFolder.SubFolders 　　　　'フォルダーをツリー表示 　　　　Set ChildNode = MyTreeView.Nodes.Add(MyNode, tvwChild, , mySubFolder.Name) 　　　　'サブフォルダーがある場合再帰的に繰り返す 　　　　Call sFolderSearch(MyTreeView, ChildNode, mySubFolder) 　　Next mySubFolder 　　'現在のフォルダー内のファイルを取得 　　For Each myFile In MyFolder.Files 　　　　'ファイルをツリー表示 　　　　MyTreeView.Nodes.Add MyNode, tvwChild, , myFile.Name 　　Next myFile End Sub 　　図１．上記実行結果

２．

３．

４．

５．サンプル投稿用掲示板に掲載しているツリービュー(TreeView)に関するサンプル

TreeViewで現在アクティブになっている項目の階層を取得(VB6.0) TreeViewのノードの表示順の保存(VB6.0) ツリービューにフォルダーとファイルを表示する(VB6.0) 　こちらは、１．ツリービュー(TreeView)にフォルダーとファイルをツリー表示すると同じです。 ツリービューにフォルダーとファイルを表示する(VB6.0)_1 　こちらは、列挙するフォルダー数が多いと、再帰検索に膨大な時間がかかるので、サブフォルダーの読み込み処理を 　遅延させることで、疑似的に高速化させてみました。すべてのドライブを列挙してツリーを構築しています。 その他、VB6.0及びVB.NET用掲示板のログビューアで検索すると、81件 ヒットしますのでそれらも参考にして下さい。

６．サンプル集に収録している未掲載のツリービュー(TreeView)に関するサンプルの紹介

TreeViewを使って指定フォルダー以下のフォルダー・ファイルをツリー状に取得(430) 　TreeViewを使って指定フォルダー以下の全フォルダー及び全ファイルをツリー状に取得して表示するTreeViewの使用例のサンプル 　サンプル実行図

検索キーワード及びサンプルコードの別名(機能名)