خواندن فولدر ها و فایلها و باز کردن فایلها

[majnun]

سلام دوستان

من میخوام یک سری فولدر ها و فایلها رو از کنار فایل exe بخونم و اونا تو treeview نشون بدم به طوری که فایلهای هر فولدر زیرشاخه اون بشن و روی هر فایل کلیک کردم url اون فایل رو بهم بده تا بتونم ازشون استفاده کنم

ممنون میشم راهنماییم کنین

[Hossis]

بعد از کلی زحمت براتون نوشتم


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim u() As String = IO.Directory.GetDirectories("d:\") ' Application.StartupPath)
For i As Short = 0 To UBound(u)
Dim fldr As TreeNode
' MsgBox(GetAttr(u(i)))
If GetAttr(u(i)) And FileAttribute.System Then Continue For
fldr = TreeView1.Nodes.Add(u(i).Substring(3))
fldr.Tag = u(i)
Dim y() As String
Try
y = IO.Directory.GetFiles(u(i))
Catch ex As Exception
End Try
For j As Integer = 0 To UBound(y)
Dim fil As TreeNode
fil = fldr.Nodes.Add(y(j).Substring(y(j).LastIndexOf("\") + 1))
fil.Tag = u(i) & "\" & fil.Text
' InputBox("", , fil.Tag)
Next

Next
End Sub
Private Sub TreeView1_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
MsgBox(e.Node.Tag)
End Sub

[majnun]

سلام دوست عزیز

اما این خیلی مشکل داره

این فولدر هایی که زیر شاخه فولدر دیگه باشن رو نشون نمیده

میخوام تو تری ویو فقط اسم پوشه ها باشه نه دایرکتوری

اسم فایل ها رو نشون نمیده

رو فایل ها کلیک میکنم اسم پوشه رو تو پیغام نمایش میده

و ...

میشه کمکم کنید