فضای خالی هارد دیسک
یه برنامه برای پیدا کردن فضای خالی هارد
Private Declare Function GetDiskFreeSpace Lib "Kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorPerCluster As Long, lpBytesPerSector As Long, lpNumberOfClusters As Long, lpTotalNumberOfClusters As Long) As Long
Private Sub Cmd_Diskinfo_Click()
Dim lAnswer As Long
Dim lpRootPathName As String
Dim lpSectorPerCluster As Long
Dim lpBytesPerSector As Long
Dim lpNumberOfClusters As Long
Dim lpTotalNumberOfClusters As Long
Dim lBytesPerCluster As Long
Dim lNumFreeBytes As Double
Dim sString As String
lpRootPathName = "D:\"
lAnswer = GetDiskFreeSpace(lpRootPathName, lpSectorPerCluster, lpBytesPerSector, lpNumberOfClusters, lpTotalNumberOfClusters)
lBytesPerCluster = lpSectorPerCluster * lpBytesPerSector
lNumFreeBytes = lBytesPerCluster * lpNumberOfClusters
sString = "Number of Free Bytes: " & lNumFreeBytes & vbCr & vbCrLf
sString = sString & "Number of Free Kilobytes: " & CStr(lNumFreeBytes / 1024) & " K" & vbCr & vbCrLf
sString = sString & "Number of Free Megabytes: " & Format(((lNumFreeBytes / 1024) / 1024), "0.00") & " MB"
MsgBox sString
End Sub
البته همین طور که می بینید برنامه خراب شده موقع تایپ یا کپی کردن مواظب باشید
