TO KNOW HOW MUCH SPACE IS IN MY DRIVE

[aaaaaaaaaaaa]

i WANT TO KNOW HOW MUCH SPACE IS THERE ON MY DRIVE...
CAN ANY ONE HELP

 

[LuckyLuke]

Hi,

It's as simple as this:

[tt]
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

Private Sub Form_Load()
Dim Sectors As Long, Bytes As Long, FreeClusters As Long, TotalClusters As Long
'Retrieve information about drive C:
Call GetDiskFreeSpace("C:\", Sectors, Bytes, FreeClusters, TotalClusters)

MsgBox "Drive C: has " & (FreeClusters * Sectors * Bytes) & " bytes free"
End Sub
[/tt]
LuCkY

 

[mymou]

Hi aaaaaaaaaaaa

Here is my suggestion as an introduction.

Dim fso As New Filesystemobject, drv As Drive, s As String
Set drv = fso.GetDrive(fso.GetDriveName("c:&quot)
MsgBox drv.FreeSpace

This leads me onto a new subject.

As I know nothing about Windows API I feel like im missing out on something. For the rest of VB it is easy to 'play around' to get what you want. API is something different - where is all the info and little tools to make it easy?

Looking to you LuckyLuke for help, as you can make something I know into cool looking alien code.


Stew