نحوه استفاده از تابع در 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

[mahdi tahan 723]

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