A1VBCode Forums / Classic Visual Basic (VB 6 or earlier) / API / Hard disk size / Latest Posts

RE: Hard disk size

sunitasamal — Mon, 11 Jul 2011 01:53:31 GMT

You can refer to the following link :

http://vbnet.mvps.org/index.html?code/disk/deviodriveinfo.htm

If you find difficulty in getting the code I can explain.

RE: Hard disk size

Keithuk — Wed, 10 Jun 2009 16:36:10 GMT

Shreeti_Tula (6/10/2009)

thanks. I may be wrong but as far as i know this api gives only the logical drive size. As for the example you have shown it gives the total size of c drive only. But i need the total size of harddisk i.e that may contain c,d,e... logical drive

Well to me the logical size is the actual size. I have a 40GB drive and it shows 40,006,156,288 Bytes and I have 28,899,593,344 Bytes free.

I only showed an example using C: drive but you could cycle through all the available fixed drives to find there size.

RE: Hard disk size

Shreeti_Tula — Wed, 10 Jun 2009 08:19:18 GMT

RE: Hard disk size

Keithuk — Wed, 10 Jun 2009 07:26:16 GMT

Shreeti_Tula (6/9/2009)

I know there are lots of question being asked about this but i still have not found the solution. Can anybody help to find the total size of hard disk not the logical size. GetDiskFreeSpaceEx only helps to get the logical size. Please help..

Well I've always used GetDiskFreeSpaceEx API to get the total drive size and the free space, its always worked for me.

Option Explicit

Dim Status As Long
Dim TotalBytes As Currency
Dim FreeBytes As Currency
Dim BytesAvailableToCaller As Currency
Dim DiskSize As String
Dim DiskSpace As String

Private Declare Function cc Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpDirectoryName As String, lpFreeBytesAvailableToCaller As Currency, _
lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long

Private Sub Command1_Click

Status = GetDiskFreeSpaceEx("C:\", BytesAvailableToCaller, TotalBytes, FreeBytes)
If Status = 0 Then
DiskSize = "Unknown"
DiskSpace = "Unknown"
Else
DiskSize = Format(TotalBytes * 10000, "#,##0") & " Bytes"
DiskSpace = Format(FreeBytes * 10000, "#,##0") & " Bytes"
End If

MsgBox "Disk Size: " & DiskSize
MsgBox "Free Space: " & DiskSpace

End Sub

RE: Hard disk size

vb5prgrmr — Wed, 10 Jun 2009 04:28:50 GMT

Have you tried GetFileInformationByHandle?

Good Luck

Hard disk size

Shreeti_Tula — Tue, 09 Jun 2009 05:05:36 GMT