| Rapid-Q Documentation by Alain Besseleer (c)2009 | Appendix D: QVolumeInfo |
| Field | Type | Read/Write | Default Value | Support |
| Serial | STRING | R | W | |
| Serial given to volume during creation of partitions | ||||
| Name | STRING | R | W | |
| FileSystem | STRING | R | W | |
| NTFS, FAT32 etc... | ||||
| DriveRoot | STRING | R | W | |
| Bytes | LONG | R | W | |
| Number of bytes / sector | ||||
| Sectors | LONG | R | W | |
| Number of sectors / cluster | ||||
| TotalClusters | LONG | R | W | |
| Total number of cluster on volume | ||||
| FreeClusters | LONG | R | W | |
| TotalBytes | DOUBLE | R | W | |
| FreeBytes | DOUBLE | R | W | |
| TotalSpace | STRING | R | W | |
| Short string representation of total space on volume | ||||
| FreeSpace | STRING | R | W | |
| Short string representation of free space on volume | ||||
| DriveType | LONG | R | W | |
| DriveTypeString | STRING | R | Empty | W |
| String representation of drivetype | ||||
| DriveTypeUnknown | INTEGER | R | Empty | W |
| 0 if drivetype is known, 1 if drivetype is unknown | ||||
| Method | Type | Description | Params | Support |
| SelectDrive | SUB(DriveRoot as string) | Select a drive | 0 | W |
| Call this first before retrieving a volumes properties | ||||
| GetStringFormat | SUB(NumberOfBytes as double) | Shows the QAboutForm | 0 | W |
|
Returns a short string representation: .GetStringFormat(50000) = 48.8 KB .GetStringFormat(8000000) = 7.6 MB .GetStringFormat(100000000000) = 93.1 GB etc... | ||||
$Include "QVolumeInfo.inc"
dim VolumeInfo as QVolumeInfo
VolumeInfo.SelectDrive("c:")
showmessage "The Serial of drive " + VolumeInfo.DriveRoot + " = " + VolumeInfo.serial
showmessage "Total size: " + VolumeInfo.TotalSpace + chr$(10) + "Free: " + VolumeInfo.FreeSpace
showmessage "Drivetype = " + VolumeInfo.drivetypestring + chr$(10) + "Drivetype = " + str$(VolumeInfo.drivetype)
showmessage "FileSytem = " + VolumeInfo.FileSytem