GetFreeDiscSpace

GPI · Post by **GPI** » Sun Sep 14, 2003 1:15 pm

Code updated for 5.20+

Procedure.s GetFreeSpace(drive.s)
  If GetDiskFreeSpaceEx_(@drive, @FB.q, @TB.q, @TFB.q)
    Define f.f, freeSpace.s
    If TFB => 1099511627776
      f = TFB / 1099511627776
      freeSpace = StrF(f, 3) + " TB"
    ElseIf TFB => 1073741824
      f = TFB / 1073741824
      freeSpace = StrF(f, 3) + " GB"
    ElseIf TFB => 1048576
      f = TFB / 1048576
      freeSpace = StrF(f, 3) + " MB"
    ElseIf TFB => 1024
      f = TFB / 1024
      freeSpace = StrF(f, 3) + " KB"
    Else
      freeSpace = StrF(TFB, 3) + " bytes"
    EndIf
  EndIf
  ProcedureReturn freeSpace
EndProcedure

Debug GetFreeSpace("c:\")

blueb · Post by **blueb** » Sun Sep 14, 2003 5:49 pm

Very nice GPI..... thanks

I had to rename it to: GetFreeDriveSpace(p$) because GetFreeSpace already exists in WinAPI.

--blueb

dagcrack · Post by **dagcrack** » Sun Mar 07, 2004 7:04 pm

Thx for sharing, but hey it isnt acurate! :S

TronDoc · Post by **TronDoc** » Sun Mar 07, 2004 9:15 pm

for windows only

Linux:
Line 24: GetDiskFreeSpaceEx_() is not a function, an array, or a linked list

Post by **Andre** » Sun Mar 07, 2004 11:24 pm

TronDoc wrote:for windows only
Linux:
Line 24: GetDiskFreeSpaceEx_() is not a function, an array, or a linked list

Its a function from the Windows API, so you are right.

blueb · Post by **blueb** » Mon Mar 08, 2004 3:25 pm

Dagcrack - Thx for sharing, but hey it isnt acurate!

dagcrack,

Reloaded and checked. Accurate

Using WinXP Pro

blueb

dagcrack · Post by **dagcrack** » Tue Mar 16, 2004 9:42 am

No, shows less than I really have.

GPI · Post by **GPI** » Tue Mar 16, 2004 7:49 pm

dagcrack wrote:No, shows less than I really have.

What exact is shown and what do you really have.

Maybe a round-error. btw: Funny: Some Windows-Windows show, that a file has 26 KB, other that the file has 25 KB...

dagcrack · Post by **dagcrack** » Tue Mar 16, 2004 11:30 pm

I trust in TC

GPI · Post by **GPI** » Wed Mar 17, 2004 7:36 pm

dagcrack wrote:I trust in TC

?!

dagcrack · Post by **dagcrack** » Thu Mar 18, 2004 12:27 pm

Oouoh... TC = TotalCommander