خب شاید شده بارها بخواید یه لیست فایل تهیه کنید با پسوند فایل که خودش توی پوشه هارو هم بگرده و فقط مربوط به یک پوشه نباشه
با این کد میتونید این کارو انجام بدید :
خوب مشخصه دیگ تویه جایی که میخواید لیست بگیرید اسم ساب رو مینویسید و یه مسیر میدید مثلا حافظه داخلی
✨ نکات مهم:
• کد آماده و تست‌شده (1 قطعه‌کد)
• کار با کتابخانه‌های: File
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانه‌های مورد نیاز:
File
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانه‌های اعلام‌شده را تیک بزنید.
| دسته‌بندی | تکه کدها |
| تعداد بازدید | ۳۲ |
| تعداد فروش | ۰ |
| فرمت تحویل | کد نمونهٔ رایگان در همین صفحه |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگی‌های کلیدی
- تکه‌کد آماده B4A
- کاملاً رایگان
- کد تست‌شده با توضیح فارسی
- کتابخانه: File
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال می‌شود)
Sub Files(Dir As String) As List
Dim l,l2 As List : l.Initialize
l2 = File.ListFiles(Dir)
For i = 0 To l2.Size - 1
Dim fn,fa As String
fn = l2.Get(i)
fa = File.Combine(Dir,fn)
If File.IsDirectory(Dir,fn) Then
l.AddAll(Files(fa))
else if fn.ToLowerCase.EndsWith(".pgk") Then
l.Add(fa)
End If
Next
Return l
End Subمحصولات مشابه