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