معرفة حجم ملف PDF تم تحديد مساره - نسخة قابلة للطباعة

كود :
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