Get Free DiskSpace (Windows only)

[BackupUser]

Code updated For 5.20+

Restored from previous forum. Originally posted by Rings.

Code: Select all

d.s="c:\"
lpFreeBytesAvailableToCaller.l
lpTotalNumberOfBytes.l
lpTotalNumberOfFreeBytes.l
sResult.s
Result=GetDiskFreeSpaceEx_(@d, @lpFreeBytesAvailableToCaller, @lpTotalNumberOfBytes, @lpTotalNumberOfFreeBytes)

sResult=Str(lpFreeBytesAvailableToCaller) + Chr(13) 
sResult=sResult+Str(lpTotalNumberOfBytes) + Chr(13) 
sResult=sResult+Str(lpTotalNumberOfFreeBytes) + Chr(13) 
If Result=1 
 MessageRequester("INFO",sResult,0)
Else
 MessageRequester("INFO","Failed to call SizeOf",0)
EndIf  

Siggi