Определение свободного дискового пространства

 
drvPath = InputBox("Введите букву диска -" & Chr (13)&Chr (10) & "на котором необходимо узнать свободное

 Option Explicit
 
 
dim drvPath
 
 
 
 
drvPath = InputBox("Введите букву диска -" & Chr (13)&Chr (10) & "на котором необходимо узнать свободное место","Путь к диску")
 
 
Function ShowFreeSpace(drvPath)
   Dim fso, d, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(drvPath & ":"))
   s = "Drive " & UCase(drvPath) & " : " 
   s = s & d.VolumeName   & Chr (13)&Chr (10) & Chr (13)&Chr (10)
   s = s & "Free Space: " & FormatNumber(d.FreeSpace/ (1024 * 1024), 3) 
   s = s & " Mb"
   ShowFreeSpace = s
End Function
                  
msgbox ShowFreeSpace(drvPath)

 msgbox "Такого диска не существует"

Option Explicit
 
Dim drvPath, s
Do
       drvPath = InputBox("Введите букву диска " & vbCrLf & "на котором необходимо узнать свободное место", "Путь к диску", "C")
       s = ShowFreeSpace(drvPath)
       MsgBox s, vbInformation, "Free Space"
Loop Until InStr(1, s, "Error") = 0
 
 
Function ShowFreeSpace(drvPath)
    Dim FSO, D, s, bts, fs
    On Error Resume Next
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set D = FSO.GetDrive(FSO.GetDriveName(drvPath & ":"))
    bts = 1048576  '(1024 * 1024)
    fs = D.FileSystem
    s = "Drive " & UCase(drvPath) & " :\"
    s = s & D.VolumeName & vbCrLf & vbCrLf
    s = s & "FileSystem: " & fs & vbCrLf
    s = s & "Free Space: " & Round(D.FreeSpace / bts, 3) & " Mb"
    If fs = "" Then ShowFreeSpace = "Error. Drive """ & UCase(drvPath) & """ unavailable." Else ShowFreeSpace = s
End Function

Option Explicit
 
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExW" (ByVal lpRootPathName As Long, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long
 
Private Const ERROR_PATH_NOT_FOUND  As Long = 3&
Private Const MBDevisor             As Currency = 104.8576@
 
Private Sub Form_Load()
    MsgBox DriveInfo(InputBox("Ââåäèòå áóêâó äèñêà", , "C") & ":")
End Sub
 
Private Function DriveInfo(Path As String) As String
    Dim free As Currency, total As Currency, temp As String
    If GetDiskFreeSpaceEx(StrPtr(Path), 0@, total, free) Then
        DriveInfo = "Total " & Format(total / MBDevisor, "#.## Mb") & vbNewLine & _
                    "Free " & Format(free / MBDevisor, "#.## Mb")
    Else: If Err.LastDllError = ERROR_PATH_NOT_FOUND Then DriveInfo = "Path not found" Else DriveInfo = "Unknown error"
    End If
End Function