با این تکه کد حجم پوشه و فایل های داخلش رو میگیریم .
حجم رو به بایت میده که تقسیم بر ۱۰۲۴ کنه
✨ نکات مهم:
• کد آماده و تست‌شده (1 قطعه‌کد)
• کار با کتابخانه‌های: File
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانه‌های مورد نیاز:
File
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانه‌های اعلام‌شده را تیک بزنید.
| دسته‌بندی | تکه کدها |
| تعداد بازدید | ۳۱ |
| تعداد فروش | ۰ |
| فرمت تحویل | کد نمونهٔ رایگان در همین صفحه |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگی‌های کلیدی
- تکه‌کد آماده B4A
- کاملاً رایگان
- کد تست‌شده با توضیح فارسی
- کتابخانه: File
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)
Dim l As List
l.Initialize
l=File.ListFiles(File.DirRootExternal&"/pooshe")
Dim size As Int
For i=0 To l.Size-1
size=size+File.Size(File.DirRootExternal&"/pooshe",l.Get(i))
Next
Msgbox(size,"اندازه کل فایل های پوشه")
Msgbox(l.Size,"تعداد کل فایل های پوشه")محصولات مشابه