You are not logged in. You can browse in the PowerBASIC Community, but you must click Login (top right) before you can post. If this is your first visit, check out the FAQ or Sign Up.
Check out the GetDiskFreeSpace API. In addition to free space, it gives you the numbers you need to calculate the disk size. Total clusters, sectors per cluster, and bytes per sector.
For what's it's worth, and I know it's not the same topic, but can the same information here be used for what you are looking for??? (GetVolumeInformation)
Code:
Function DriveSerialNumber(Drive As String)Export As String
Local HWord As Word
Local LWord As Word
Local Volname As Asciiz * 16
Local VolBuffer As Asciiz * 255
Local lpVolumeSerialNumber As Long
Local lpMaximumComponentLength As Long
Local lpFileSystemFlags As Long
Local FileSysBuffer As Asciiz * 255
If GetVolumeInformation (ByCopy Drive, VolBuffer, SizeOf(VolBuffer), lpVolumeSerialNumber , lpMaximumComponentLength, _
lpFileSystemFlags , FilesysBuffer, SizeOf(FilesysBuffer)) <> 0 Then
HWord = HiWrd(lpVolumeSerialNumber)
LWord = LoWrd(lpVolumeSerialNumber)
Function = Right$("0000000"+Hex$(HWord), 4) + "-" + Right$("0000000"+Hex$(LWord), 4)
Else
Function = "Cannot Read Drive.."
End If
End Function
Scott Turchin
MCSE, MCP+I http://www.tngbbs.com
---------------------- True Karate-do is this: that in daily life, one's mind and body be trained and developed in a spirit of humility; and that in critical times, one be devoted utterly to the cause of justice. -Gichin Funakoshi
We process personal data about users of our site, through the use of cookies and other technologies, to deliver our services, and to analyze site activity. For additional details, refer to our Privacy Policy.
By clicking "I AGREE" below, you agree to our Privacy Policy and our personal data processing and cookie practices as described therein. You also acknowledge that this forum may be hosted outside your country and you consent to the collection, storage, and processing of your data in the country where this forum is hosted.
Comment