[ميدو الفنان]

عليكم السلام ورحمة الله وبركاته
تفضل هذا كود يعرض حجم الملف بالبايت وبالميجا ايضا تقوم باختيار ملف من المسار الذي تحدده عن طريق زر يفتح لك قايمة لاختيار الملف وبعد اختيار الملف يظهر حجمة في label تفضل الكود اهو

كود :

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' إنشاء OpenFileDialog لاختيار ملف
        Dim openFileDialog As New OpenFileDialog()

        ' عرض مربع الحوار للمستخدم
        If openFileDialog.ShowDialog() = DialogResult.OK Then
            ' عرض مسار الملف في TextBox
            TextBox1.Text = openFileDialog.FileName

            ' حساب حجم الملف 
            Dim fileInfobytes As New FileInfo(openFileDialog.FileName)
            Dim fileSizebytes As Long = fileInfobytes.Length
            Dim fileSizeMB As Double = fileSizebytes / (1024 * 1024)
            ' عرض حجم الملف في Label
            Label1.Text = "File Size: " & fileSizebytes.ToString() & " bytes" & vbNewLine & "File Size: " & fileSizeMB.ToString("F2") & " MB"
        End If
    End Sub
End Class