Parsi Coders

با سورس زیر میتونید فضای خالی یک درایو رو بدست اورید.
english:
You can use this block of code and the kernal32 library to find out the amount of free disk space you have on your hard drive.
Declarations:

کد:
Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA"

(ByVal lpRootPathName As String, lpSectorsPerCluster As Long,

lpBytesPerSector As Long, lpNumberOfFreeClusters As Long,

lpTtoalNumberOfClusters As Long) As LongPublic Type DiskInformation

    lpSectorsPerCluster As Long

    lpBytesPerSector As Long

    lpNumberOfFreeClusters As Long

    lpTotalNumberOfClusters As Long

End Type

Example:

کد:
Dim info As DiskInformation

Dim lAnswer As Long

Dim lpRootPathName As String

Dim lpSectorsPerCluster As Long

Dim lpBytesPerSector As Long

Dim lpNumberOfFreeClusters As Long

Dim lpTotalNumberOfClusters As Long

Dim lBytesPerCluster As Long

Dim lNumFreeBytes As Double

Dim sString As StringlpRootPathName = "c:\"

lAnswer = GetDiskFreeSpace(lpRootPathName, lpSectorsPerCluster,

lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters)

lBytesPerCluster = lpSectorsPerCluster * lpBytesPerSector

lNumFreeBytes = lBytesPerCluster * lpNumberOfFreeClusters

sString = "Number of Free Bytes : " & lNumFreeBytes & vbCr & vbLf

sString = sString & "Number of Free Kilobytes: " & (lNumFreeBytes / 1024)

& "K" & vbCr & vbLf

sString = sString & "Number of Free Megabytes: " & Format(((lNumFreeBytes

/ 1024) / 1024), "0.00") & "MB"MsgBox sString

Amin_Mansouri