انتخاب چایلد در تریویو ...

[ehsan-68]

سلام به همه دوستان ...

من یک تریویو دارم که با فولدر و تعدادی فایل که در فولدر هست پرش کردم ...

حالا من میخوام زمانیکه رویه نام فایل کلیک میکنم در دو لیبل نام و مسیرشو به من بده ...

ممنون میشم اگه راهنمایی کنید ...

[ehsan-68]

دوستان پیدا کردم خودم ... زیاد سخت نبود ...

[rezaprogrammer]

سلام. خب راه حلت رو اینجا بذار برای دیگر دوستانی که شاید این مشکل براشون پیش اومده استفاده کنن.

[ehsan-68]

سلام. خب راه حلت رو اینجا بذار برای دیگر دوستانی که شاید این مشکل براشون پیش اومده استفاده کنن.

بله حتما ...


Dim path As String = Application.StartupPath
Dim path3 As String

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

' نام فایلو میگیره
TextBox1.Text = TreeView1.SelectedNode.Text
' اینم مسیر فایلتونو برمیگردونه
path3 = path & ".\backup\backup\" & TextBox1.Text


' برایه بدست آوردن حجم فایل در مسیر
' که من برایه تبدیل به کیلوبایت تقسیم بر 1024 کردم
Dim sizedb As New FileInfo(path & ".\backup\backup\" & TextBox1.Text)
TextBox2.Text = sizedb.Length.ToString / (1024) & " کیلوبایت "
End Sub

[ehsan-68]

این کد رو هم گذاشتم در لود فرم تا تری ویورو از لولدر و فایلاش پر کنه ...


Function GetFolder(ByVal Dir As IO.DirectoryInfo) As IO.DirectoryInfo()
Return Dir.GetDirectories("*.*")
End Function
Function GetAllFiles(ByVal Dir As IO.DirectoryInfo) As IO.FileInfo()
Return Dir.GetFiles("*.bak")
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
For Each Folder As IO.DirectoryInfo In GetFolder(New IO.DirectoryInfo(path & ".\backup"))
Dim node1 As TreeNode = New TreeNode()
node1.Text = Folder.Name
TreeView1.Nodes.Add(node1)

For Each File As IO.FileInfo In GetAllFiles(New IO.DirectoryInfo(path & ".\backup\backup"))
Dim child1 As TreeNode = New TreeNode()
child1.Text = File.Name
node1.Nodes.Add(child1)
Application.DoEvents()
Next File

Application.DoEvents()
TreeView1.ExpandAll()
Next Folder
Catch ex As Exception
TreeView1.Nodes.Add(" لیست خالـــی ")
End Try
End Sub


یک سری چیز اضافه داره بپرسید میگم ماله چیه ...