رفتن به مطلب
  • 0

نحوه استفاده از تابع در b4a


fallapps

سوال

دوستان من میخوام حجم یک پوشه همراه با حجم تمامی محتوایش را در یک لیبل نشان دهم آیا تابع زیر میتوانید این کار را انجام دهد؟اگر جواب مثبت است چگونه از آن استفاده کنم؟(البته در محیط بیسیک فور)

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

با این حجم پوشه و فایل هایه توشو بگیر.حجم و به بایت میده که تقسیم بر 1024 کن

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,"تعداد کل فایل های پوشه")

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...