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

سوال

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

1- بنده میخوام حجم محتویات یک فولدر رو در بیسیک به کاربر نشون بدم , مثلا یک فولدر دارم که داخلش 10تا فایله میخوام , حجم تمام فایل ها رو به کاربر نشون بدم قبلا یک تکه کد پیدا کردم اما فقط حجم خود فولدر رو نشون میداد نه محتویات داخلش رو (مثلا فولدر Video رو حجمش رو 4 کیلو بایت نمایش میداد در حالی که 2 گیگ ویدیو توش بود)

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

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

حل شد 0
, 2019-10-12T09:37:42+03:30 1 پاسخ ها کاربر تازه 0

پاسخ ( 1 )

  1. احمد آخوندی
    1
    2019-10-13T19:25:22+03:30
    پاسخ

    سلام

    سوال اول: برای بررسی حجم یک پوشه به همراه محتویات آن از 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 اکانت دارند باید آخرین نسخه رو دانلود و در اختیار قرار بدن …)

    موفق باشید.

    بهترین پاسخ

ارسال یک پاسخ