Declare Function getdiskfreespace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal Path As String, ByRef a As Long, ByRef b As Long, ByRef c As Long, ByRef d As Long) As Long
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try
Dim SectorOfCluster, ByteOfSector, freeCluster, TotalCluster As Long
Dim result As Long
result = getdiskfreespace("f:\", SectorOfCluster, ByteOfSector, freeCluster, TotalCluster)