Sub 指定したドライブの容量を調べる() Dim fso As New Scripting.FileSystemObject Dim myTotal As Variant Dim mySpace As Variant With fso.GetDrive(Range("B1").Value) myTotal = .TotalSize mySpace = .AvailableSpace End With Range("B2").Value = Format(myTotal - mySpace, "#,##0") Range("B3").Value = Format(mySpace, "#,##0") Range("B4").Value = Format(myTotal, "#,##0") Set fso=Nothing End Sub Driveオブジェクトを取得するFileSystemOb