[mazen]

انا عملت اداة الشجرة treeview ووضعت بداخلها الدريفرات والفولدرات

اريد كود نقل اسم الفولدر الي اختارة الي التيكست

وكود لاظهار مساحة الفولدر المختار الي التيكست

[sooriaty03]

السلام عليكم ورحمة الله وبركاته

بالنسبة للطلب الأول
هذا هو الكود المطلوب

كود :

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        TextBox1.Text = TreeView1.SelectedNode.FullPath
    End Sub

بالتوفيق

[mazen]

مشكور اخي الفاضل الكود شغال

مفيش طريقة اجيب بيها مساحة كل فولدر داخل الدرايف

[sooriaty03]

MAZEN كتب :مشكور اخي الفاضل الكود شغال

مفيش طريقة اجيب بيها مساحة كل فولدر داخل الدرايف

السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم

كود :

Private Function GetSize(ByVal DirectorySize As Double) As String
        Dim Result As String = ""
        Select Case DirectorySize
            Case Is <= 1024
                Return DirectorySize & " Byte"
            Case Is <= 1024 ^ 2
                Result = (DirectorySize / 1024).ToString
                Return Result.Substring(0, Result.IndexOf(".") + 3) & " Kb"
            Case Is <= 1024 ^ 3
                Result = (DirectorySize / (1024 ^ 2)).ToString
                Return Result.Substring(0, Result.IndexOf(".") + 3) & " Mb"
            Case Is > 1024 ^ 3
                Result = DirectorySize / (1024 ^ 3)
                Return Result.Substring(0, Result.IndexOf(".") + 3) & " Gb"
        End Select
        Return ""
    End Function

بالتوفيق