B4J Code Snippet Folder size

private Sub generatelistfolder(genlist As List, ffolder As String) As ResumableSub
 
 
    Dim alist As List
    alist.Initialize
    alist.Clear
 
    Try
        alist=File.ListFiles(ffolder)
    Catch
        Log("Not a Folder, may be a file... will try to add at list if exists...")
    End Try
 
    If alist.Size>0 Then
 

    For k=0 To alist.Size-1
        Dim isfolder As Boolean=File.IsDirectory(ffolder,alist.Get(k))
        
        If isfolder=True Then
            genlist.Add(Array As String(ffolder,alist.Get(k),isfolder))
            If ffolder.EndsWith("\")=True Then
                ffolder=ffolder.SubString2(0,ffolder.Length-1)
            End If
            generatelistfolder(genlist, ffolder & "\" & alist.Get(k))
        Else
            genlist.Add(Array As String(ffolder,alist.Get(k),isfolder))
        End If
    Next
 
    Else
    
        If File.Exists(File.GetFileParent(ffolder),File.GetName(ffolder)) Then
            genlist.add(Array As String(File.GetFileParent(ffolder),File.GetName(ffolder),False))
            Else
            Log ("Not Existing File...")
        End If
    
    End If

Return True

End Sub

Dim mylist As List  'Here will save the names of Folders, Files and it is folder or file...
Dim totsize As Long=0
mylist.Initialize
mylist.clear

wait for(generatelistfolder(mylist,"D:\tesssst")) complete (s As Boolean) 'add one folder with subfolders
wait for(generatelistfolder(mylist,"c:\ccc")) complete (s As Boolean) 'add a second one... "
wait for(generatelistfolder(mylist,"d:\tameiakh.txt")) complete (s As Boolean) 'add a file at list... "

'Show the Folder | FileName | Is it Folder?
'--------------------------------------------
For k=0 To mylist.Size-1
    Dim FileOrFolderInfo() As String = mylist.Get(k)
    Log(FileOrFolderInfo(0) & " | " & FileOrFolderInfo(1) & " | " & FileOrFolderInfo(2))
    If FileOrFolderInfo(2)=False Then
        totsize=totsize+File.Size( FileOrFolderInfo(0), FileOrFolderInfo(1))
    End If
Next
Log("Total Size in bytes: " & totsize)
Log("Files & Folders Listed: " & mylist.Size)

    public static long getSizeOfFolder(String folderPath) throws IOException {
        Path path = Paths.get(folderPath);
        if (!Files.isDirectory(path)) {
            throw new IllegalArgumentException("La directory specificata non esiste o non è una cartella.");
        }

        FileStore fileStore = Files.getFileStore(path);
        return fileStore.getTotalSpace() - fileStore.getUnallocatedSpace();
    }

import java.io.*;
import java.nio.file.*;
public static long folderSize(String pth) throws IOException {
    Path folder = Paths.get(pth);
    long size = Files.walk(folder)
      .filter(p -> p.toFile().isFile())
      .mapToLong(p -> p.toFile().length())
      .sum();
    return size / 1_048_576;  // (MiB)
}

Sub GetSizeOfFolder(FolderPath As String) As Long
    Try
        Dim objFiles As JavaObject
        objFiles.InitializeStatic("java.nio.file.Files")
       
        Dim FolderFile As JavaObject
        FolderFile.InitializeNewInstance("java.io.File", Array As Object(FolderPath))
        Dim Path As JavaObject
        Path = FolderFile.RunMethod("toPath", Null)
     
        If Not(File.IsDirectory(FolderPath, "")) Then
            Log("The specified directory does not exist or is not a folder.")
            Return -1
        End If
       
        Dim FileStore As JavaObject
        FileStore = objFiles.RunMethod("getFileStore", Array As Object(Path))
        Dim TotalSpace As Long
        TotalSpace = FileStore.RunMethod("getTotalSpace", Null)
        Dim UnallocatedSpace As Long
        UnallocatedSpace = FileStore.RunMethod("getUnallocatedSpace", Null)
       
        Return TotalSpace - UnallocatedSpace
    Catch
        Log(LastException)
        Return -1
    End Try
End Sub