حجم پوشه+محتوایش در بیسیک فور اندروید

[fallapps 4]

دوستان سلام،

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

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

 

اگه میشه لطف کنید راهنمایی کنید.ممنون

 

[ali mo 264]

سلام وقت بخیر از تابع زیر استفاده کنید

Sub FormatFileSize(Bytes As Float) As String
   
    Private Unit() As String = Array As String(" Byte", " KB", " MB", " GB", " TB", " PB", " EB", " ZB", " YB")
   
    If Bytes = 0 Then
                    
       Return "0 Bytes"
    
    Else
       
       Private Po, Si As Double
       Private I As Int
       
       Bytes = Abs(Bytes)
                            
       I = Floor(Logarithm(Bytes, 1024))
       Po = Power(1024, I)
       Si = Bytes / Po
       
       Return NumberFormat(Si, 1, 3) & Unit(I)
       
    End If
   
End Sub

نحوه استفاده از تابع به صورت زیر است :

dim size1 as string
size1 = FormatFileSize(File.Size(File.DirRootExternal,"/Neshani Folder Ya File"))
lbl1.text= size1

lbl هم که نام لیبل می تونید نام لیبل خودتونو بدید

پایین برای فولدر جفت شو تست کنید

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