'勉強中の方々への参考:初級講座 第25回 実技2 フォルダ情報一覧」 'これは多分 tvFolders_AfterSelect の代わりになります。 '興味があれば試してみて下さい。手直しがあればして下さいね。 Private Sub TreeView1_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeExpand Dim tn As TreeNode = e.Node.FirstNode() '子ノードの先頭取得 'ノードの数だけ実行 For i As Integer = 0 To e.Node.Nodes.Count - 1 If Not tn Is Nothing Then Dim dirinfo As DirectoryInfo = New DirectoryInfo(tn.FullPath) Try If dirinfo.GetDirectories().Count > 0 Then '子ノードを追加する AddChildNodes(tn) '講座の中のAddSubNodesと同じ処理です。 End If Console.WriteLine(tn.Text) Catch ex As Exception End Try End If tn = tn.NextNode() Next End Sub