by HaxCode (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
This is an update to an earlier post a week or so ago. I have added a few things to the original including Volume Label, Disk Type and File System. Used, Free and Total space of the drive selected is displayed for the user. An error message is used for drives that do not exist. If it is a removable drive and no media is in the drive the program will report the drive letter as invalid. I believe it works with ALL file systems: FAT16, FAT32, NTFS, CDFS, etc if not let me know and I will fix it. Report bugs, suggestions and such to me.
API DeclarationsPrivate Declare Function GetDiskFreeSpace Lib "kernel32" Alias _
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters _
As Long) As Long
VBcodersUpload