Android Question Ho to read available space on GetSafeDirDefaultExternal ?

[amorosik]

To have the directory where to write the logs that the app produces, I use the following instructions:

Dim rp As RuntimePermissions
log_dir = rp.GetSafeDirDefaultExternal ("App1")

How to read how much space is still available on the drive where the log_dir resides?

 

[MikeSW17]

See: Delete oldest files, if no free space.

 

[amorosik]

See: Delete oldest files, if no free space.

Get_FreeSpacePercent returns free space for File.DirInternal
But for GetSafeDirDefaultExternal ???

 

[agraham]

Should be the same way. Try

    jo.InitializeNewInstance("java.io.File", Array( rp.GetSafeDirDefaultExternal ))

Where 'rp' is a RuntimePermissions.

 

[LucaMs]

More "general".

Public Sub GetFolderFreeSpace(Folder As String) As Long
    Dim jo As JavaObject
    jo.InitializeNewInstance("java.io.File", Array(Folder))
    Return jo.RunMethod("getUsableSpace", Null)
End Sub

 

[Mahares]

More "general".

Mario, perhaps easier on the eye like this:

Log(GetFolderFreeSpace(xui.DefaultFolder))  'displays: 20,999 MB for mine

Public Sub GetFolderFreeSpace(Folder As String) As String
    Dim jo As JavaObject
    jo.InitializeNewInstance("java.io.File", Array(Folder))
    Return $"${NumberFormat(jo.RunMethod("getUsableSpace", Null)/1024/1024,1,0)} MB"$
End Sub

 

[LucaMs]

Mario, perhaps easier on the eye like this:

I did that (used NumberFormat2) but outside of the function, in the test project; I think it is more "correct" (you can use the function to do calculations)

Public Sub GetFolderTotaleSpace(Folder As String) As Long
    Dim jo As JavaObject
    jo.InitializeNewInstance("java.io.File", Array(Folder))
    Return jo.RunMethod("getTotalSpace", Null)
End Sub

Public Sub GetFolderFreeSpace(Folder As String) As Long
    Dim jo As JavaObject
    jo.InitializeNewInstance("java.io.File", Array(Folder))
    Return jo.RunMethod("getUsableSpace", Null)
End Sub

Public Sub GetFolderFreeSpacePercent(Folder As String) As Long
    ' REQUIRES:
    '    GetFolderTotaleSpace
    '    GetFolderFreeSpace
    Dim TotalSpace As Long = GetFolderTotaleSpace(Folder)
    Return (100 - ((TotalSpace - GetFolderFreeSpace(Folder) ) / TotalSpace) * 100)
End Sub