منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : معرفة حجم ملف PDF تم تحديد مساره
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله

لو سمحتوا ياجماعة محتاج كود لمعرفة حجم ملف تم تحديد مساره داخل textbox

أرجوا الإفادة ولكم جزيل الشكر
عليكم السلام ورحمة الله وبركاته
تفضل هذا كود يعرض حجم الملف بالبايت وبالميجا ايضا تقوم باختيار ملف من المسار الذي تحدده عن طريق زر يفتح لك قايمة لاختيار الملف وبعد اختيار الملف يظهر حجمة في 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