سلام
به وسیله یک تابع بازگشتی می تونیم خیلی راحت این کارو انجام بدیم با تغییر مختصر این الگوریتم می تونیم جستجوی فایل و پوشه های را در هر زیر شاخه ای انجام بدیم.
تعایف
Dim listStr As New List(OfString)
PublicSub Node(ByVal Tv As TreeNodeCollection)
Dim B As TreeNode
For Each B In Tv
listStr.Add(B.FullPath)
If B.Nodes.Count > 0 Then
Node(B.Nodes)
EndIf
Next
EndSub
نحوه فراخونی
Node(TreeView1.Nodes)
نتیجه در لیست listStr قرار داره حالا شما می تونید با یک Forهمه اجازای این آرایه رو نشون بدین.
ForEach s In listStr
ListBox1.Items.Add(s)
Next