機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > FileSystemObject

指定したドライブの空き容量を表示する



指定されたドライブが存在するかどうかを、FileSystemObjectオブジェクトのDriveExistsプロパティで判定しています。
UserFormのリストボックスなどでドライブを選択させてもいいですね。ここでは容量の単位をKBとしましたが、MBやGBにしたいときは、さらに1024で割ってください。

Sub Sample01()
    Dim FSO As Object, DrvLetter As String, msg As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    DrvLetter = InputBox("容量を調べるドライブは?")
    If DrvLetter = "" Then
        Set FSO = Nothing
        Exit Sub
    End If
    If FSO.DriveExists(DrvLetter) Then
        msg = Format(FSO.GetDrive(DrvLetter).AvailableSpace / 1024, "#,##") & " KB"
        MsgBox DrvLetter & "ドライブの空き容量は、" & msg & "です。", vbInformation
    Else
        MsgBox DrvLetter & "ドライブは存在しません", vbExclamation
    End If
    Set FSO = Nothing
End Sub







このエントリーをはてなブックマークに追加