گرفتن حجم یک فایل همراه با محتوایش در حافظه گوشی

دوستان برنامه نویس سلام،

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

ضمنا من خودم از sub زیر استفاده کردم:
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
اما بلد نیستم از تکه کد بالا چگونه در creat استفاده کنم و حجم یک فایل رو در لیبل نمایش دهم.
خواهش میکنم کاملا راهنمایی کنید.اجرتون با خدا