ディスクの容量と空き容量を取得する

'GetFreespace　＝＞ディスクの容量と空き容量の取得

'＜引数＞
'lpRootPathName:             ドライブ名
'lpSectorsPerCluster:        セクタ (クラスタ当り)
'lpBytesPerSector:           バイト数 (セクタ当り)
'lpNumberOfFreeClusters:     フリークラスタ数
'lpTtoalNumberOfClusters:    ドライブのクラスタ数 (合計)

'＠戻り値＠
' 正常終了True


Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

Private Sub Drive1_Change()

Dim Name As String      'ドライブ名
Dim Sekuta As Long      'セクタ（クラスタ当り）
Dim nByte As Long       'バイト数（セクタ当り）
Dim Kurasuta As Long    'フリークラスタ数
Dim Drive As Long       'ドライブのクラスタ数（合計）
Dim FreeSpace As Double 'ディスクの空き容量
Dim Youryou As Double   'ディスクの容量
Dim Ret As Long         '戻り値


Name = Drive1.Drive & "\"

'ディスク情報を取得
Ret = GetDiskFreeSpace(Name, Sekuta, nByte, Kurasuta, Drive)

'ディスク容量を取得
Youryou = Sekuta * nByte * Drive
Text1.Text = Format(Youryou, "#,##0") & "バイト"

'空き容量を取得

FreeSpace = Sekuta * nByte * Kurasuta
Text2.Text = Format(FreeSpace, "#,##0") & "バイト"


End Sub