Get Free DiskSpace (Windows only)
Posted: Mon Jan 14, 2002 2:45 pm
Code updated For 5.20+
Restored from previous forum. Originally posted by Rings.
Siggi
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