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

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

سوال

fallapps    4

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

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 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

  • 1
mahdi tahan    611

با این حجم پوشه و فایل هایه توشو بگیر.حجم و به بایت میده که تقسیم بر 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,"تعداد کل فایل های پوشه")

 

  • پسندیدن 1

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...