ディスクの情報を取得(VB)

キーワード:

GetDiskFreeSpace

サンプルコード:

'ディスクの情報を取得
Private Sub DispFreeSpace()
	Dim Secs As Long
	Dim SecSize As Long
	Dim FreeClusters As Long
	Dim Clusters As Long

	GetDiskFreeSpace "c:\", Secs, SecSize, FreeClusters, Clusters

	MsgBox "ドライブAの情報:" & vbCr & _
		"クラスタあたりのセクタ数:" & Secs & vbCr & _
		"セクタのバイトサイズ:" & SecSize & vbCr & _
		"空きクラスタ数:" & FreeClusters & vbCr & _
		"総クラスタ数:" & Clusters & vbCr & _
		"ディスクの総バイト数:" & (Clusters * Secs * SecSize) & vbCr & _
		"ディスクの空き容量:" & (FreeClusters * Secs * SecSize)
End Sub
(original text:1998/12/25 更新)

本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。