ドライブの総容量を取得する方法

戻る

ドライブの総容量を取得する方法 (Windows2000)

動作環境 Windows2000 開発環境 Visual Basic 6.0 (+SP5)

説明 Drive オブジェクトの TotalSize プロパティで、ドライブの総容量を取得します。

用意するもの：標準フォーム(Form1)、コマンドボタン(Command1)、ドライブリストボックス(Drive1)

Private Sub Command1_Click()

Dim myFSO As Object

Dim myDrive As Object

Set myFSO = CreateObject("Scripting.FileSystemObject")

Set myDrive = myFSO.GetDrive(myFSO.GetDriveName(Drive1.Drive))

Print "ドライブ " & Drive1.Drive & " の総容量"

Print Format(myDrive.TotalSize, "#,###") & " バイト"

Set myDrive = Nothing

Set myFSO = Nothing

End Sub

ドライブの総容量を取得する方法 (Windows2000)
動作環境	Windows2000	開発環境	Visual Basic 6.0 (+SP5)
説明	Drive オブジェクトの TotalSize プロパティで、ドライブの総容量を取得します。
用意するもの：標準フォーム(Form1)、コマンドボタン(Command1)、ドライブリストボックス(Drive1)
Private Sub Command1_Click() Dim myFSO As Object Dim myDrive As Object Set myFSO = CreateObject("Scripting.FileSystemObject") Set myDrive = myFSO.GetDrive(myFSO.GetDriveName(Drive1.Drive)) Print "ドライブ " & Drive1.Drive & " の総容量" Print Format(myDrive.TotalSize, "#,###") & " バイト" Set myDrive = Nothing Set myFSO = Nothing End Sub