B4J Question Filesize with NumberFormat

[ThRuST]

I have this code. Can you help me implement NumberFormat to remove the decimals?

Play around with this

Private FileSize As Int
    FileSize = File.Size ("c:\","Filename")
    fx.Msgbox(MainForm, FileSize / 1024, "")

 

[DonManfred]

Is it that hard to figure it out by yourself?
What did you tried so far?

 

[ThRuST]

All ways that did not work?

 

[ThRuST]

This makes sense, but not correct. Was it close?

Private FileSize As Int
    FileSize = File.Size ("c:\","test.exe")
    fx.Msgbox(MainForm, FileSize(NumberFormat(1,3,0) / 1024, ""))

 

[ThRuST]

You might win a box of twix if you provide a working solution to this, you never know haha

 

[ThRuST]

I also tried this

fx.Msgbox(MainForm, FileSize / 1024 (NumberFormat(1,3,0)), "")

 

[ThRuST]

And this

fx.Msgbox(MainForm, NumberFormat(FileSize,3,0) / 1024, "")

 

[ThRuST]

Hang on, I'll keep posting until I solve it myself.

 

[DonManfred]

    Private FileSize As Int
    FileSize = File.Size ("e:\","sqlNO.txt")
    fx.Msgbox(MainForm, NumberFormat2(FileSize / 1024,7,0,0,False), "")

 

[ThRuST]

@DonManfred Great. This is the closest I got but it still returns 3 decimals because it uses Double. Even tried Ceil and Round but that's not the way to go

Private FileSize As Double
    FileSize = File.Size ("c:\","test.exe")
    fx.Msgbox(MainForm, NumberFormat(FileSize,3,0 / 1024), "")

 

[ThRuST]

Actually this question was a follow up to Resumable subs. So that the value of Sleep can be adjusted according to the size of a file.
Madness or Genious, the beauty is in the eyes of the beholder. Your solution was once again better than my own