ハードディスク残量チェック超簡易ツール
1TBのハードディスクに500GBのデータが入っています、というときに「まだ半分も空き容量がある」と感じるか「もう半分しか空き容量がない」と感じるかみたいな性格判断ってありますよね。
最近は高画質の動画編集も一般的になり数百GBの容量でもすぐいっぱいになったりします。そんなわけでハードディスクの空き容量をチェックする超簡易ツールを作りました。スタートアップに入れておけば毎日起動時に空き容量を意識することができます。
diskspace.vbs
drive = "C:" threshold = 50000 'MB Set fso = CreateObject("Scripting.FileSystemObject") Set driveinfo = fso.GetDrive(drive) rest = Fix(driveinfo.FreeSpace / 1000000) strRest = FormatNumber(rest, 0) If rest < threshold Then WScript.Echo drive & "ドライブの空き容量が少なくなりました (" & strRest & " MBytes)" Else WScript.Echo drive & "ドライブ空き容量チェックOK (" & strRest & " MBytes)" End If