ディスクの情報を取得(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 更新)
本ドキュメントの内容は保証しません。本ドキュメントによって生じた結果について、一切の責任を負いません。