Dim total As Long
total = Aggregate drv In My.Computer.FileSystem.Drives _
        Where drv.DriveType = DriveType.Fixed _
        Into Sum(drv.AvailableFreeSpace)
MsgBox(total.ToString("#,0' Bytes'"))
を教えていただきましたが、
DriveTipe は宣言されてないか、または現在のスコープ内に存在しません
とエラーが出てきました。
どう解決すればいいのですか？