نمایش حجم محتویات درون یک فولدر

سوال

سلام دوستان , دو تا سوال داشتم

۱- بنده میخوام حجم محتویات یک فولدر رو در بیسیک به کاربر نشون بدم , مثلا یک فولدر دارم که داخلش ۱۰تا فایله میخوام , حجم تمام فایل ها رو به کاربر نشون بدم قبلا یک تکه کد پیدا کردم اما فقط حجم خود فولدر رو نشون میداد نه محتویات داخلش رو (مثلا فولدر Video رو حجمش رو ۴ کیلو بایت نمایش میداد در حالی که ۲ گیگ ویدیو توش بود)

۲ – اگر کسی نسخه بروز کتابخانه ExoPlayer رو داره لطفا اینجا قرار بده , از سایتای دیگه نتونستم دانلود کنم (اگر پلیر دیگه هم میشناسید که بهتر از این هست لطفا معرفی کنید)

با تشکر از سایت خوبتون

حل شد 0
, ۱۳۹۸/۷/۲۰ ۹:۳۷:۴۲ 1 پاسخ ها کاربر تازه 0

پاسخ ( 1 )

  1. احمد آخوندی
    1
    ۱۳۹۸/۷/۲۱ ۱۹:۲۵:۲۲
    پاسخ

    سلام

    سوال اول: برای بررسی حجم یک پوشه به همراه محتویات آن از sub زیر میتونید استفاده کنید:

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    ۸
    ۹
    ۱۰
    ۱۱
    ۱۲
    Sub CalcSize(Folder As String, recursive As Boolean) As Long
        Dim size As Long
        For Each f As String In File.ListFiles(Folder)
            If recursive Then
                if File.IsDirectory(Folder, f) Then
                    size = size + CalcSize(File.Combine(Folder, f),recursive)
                End If
            End If
            size = size + File.Size(Folder, f)
        Next
        Return size
    End Sub

    سوال دوم: نسخه جدیدی از Exoplayear یافت نشد(کسانی که از سایت b4x اکانت دارند باید آخرین نسخه رو دانلود و در اختیار قرار بدن …)

    موفق باشید.

    بهترین پاسخ

ارسال یک پاسخ