Author: @Erel See here.
I´ve changed it a bit and share it here in the Code-Snippets
Description: Get the total size of an folder.
You can use it recursive or not
Tags: Foldersize, Filesize, Recursive
Dependencies: none
I´ve changed it a bit and share it here in the Code-Snippets
Description: Get the total size of an folder.
You can use it recursive or not
B4X:
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 SubTags: Foldersize, Filesize, Recursive
Dependencies: none