[hitman48]

شوف اخي حظر 2 من  button
+ TextBox1.Text
 +lable1

button1

كود :

  Dim i As New FolderBrowserDialog
       If i.ShowDialog Then
           TextBox1.Text = i.SelectedPath ' هنا لاستعارض الملف الذي تود اظهاره
       End If

butto2

كود :

 Dim driveName As String = TextBox1.Text ' عبارة عن تعريف يمكنك تغير التكست بوكس بالكومبكس او اي شيئ من نوع string
       Dim drive As New DriveInfo(driveName)
       Label1.Text = "Total Size: " + Format(drive.TotalSize / 1024 / 1024 / 1024) + "GB" 'اظهار حجم الملف باجيجا بايت

وهاهو الكود باكامل

كود :

Imports System.IO

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim i As New FolderBrowserDialog
       If i.ShowDialog Then
           TextBox1.Text = i.SelectedPath ' هنا لاستعارض الملف الذي تود اظهاره
       End If
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Dim driveName As String = TextBox1.Text ' عبارة عن تعريف يمكنك تغير التكست بوكس بالكومبكس او اي شيئ من نوع string
       Dim drive As New DriveInfo(driveName)
       Label1.Text = "Total Size: " + Format(drive.TotalSize / 1024 / 1024 / 1024) + "GB" 'اظهار حجم الملف باجيجا بايت

   End Sub
End Class

ارجو ان يكون المطلوب