Driveオブジェクト - FreeSpaceプロパティ

  1. Home
  2. Excel
  3. VBA
  4. FileSystemObject
  5. Driveオブジェクト

【書式】

Drive.FreeSpace

使用できるディスク容量を返します。

FreeSpaceプロパティの返り値はAvailableSpaceプロパティの返り値と同じです。値が異なる可能性があるのは、コンピュータシステムがディスククォータ機能をサポートしている場合だけです。

Sub test30()
    Dim FSO As Object, DriveObject As Object, msg As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''Cドライブの空き容量を表示します
    Set DriveObject = FSO.GetDrive("C")
    msg = "Cドライブの空き容量は、" & vbCrLf
    msg = msg & Format(DriveObject.FreeSpace, "#,##") & vbCrLf
    msg = msg & "です"
    MsgBox msg
    Set DriveObject = Nothing
    Set FSO = Nothing
End Sub