VBcoders Browse New Submit Contact Sign In

No account? Register free

Forgot password?

DriveSize (Updated)

HaxCode  (1 Submission)   Miscellaneous   Visual Basic 3.0   Beginner   Wed 3rd February 2021

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 Declarations
Private 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

Rate DriveSize (Updated) (3(3 Vote))
DriveSize (Updated).bas

DriveSize (Updated) Comments

No comments yet — be the first to post one!

Post a Comment

0/1000 characters