Excel VBAでドライブ情報取得

VBAでドライブ情報を取得するプログラムを作成してみた。drvPathをいろいろ変えればいい。

Sub test()
    Dim fso As Object
    Dim d As Variant
    Dim drvPath As String
    
    drvPath = "e:"
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvPath)))
    Cells(2, 2).Value = d.SerialNumber
    Cells(2, 7).Value = d.Drivetype
    Cells(2, 6).Value = d.DriveLetter
    Cells(2, 4).Value = d.TotalSize
    Cells(2, 5).Value = d.AvailableSpace
    Cells(2, 1).Value = d.VolumeName
    
End Sub