プログラミング

プログラミングに関するフォーラムです。VBAは除きます。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 7 Professional : 指定なし)
ファイル使用量をテキストで保存したい
投稿日時: 19/11/22 11:49:30
投稿者: jimusyo

お世話になります。
 
 日々のディスクサイズ使用量を確認したく
 いろいろ検索しコマンドプロンプトで
 「fsutil volume diskfree c:」
 にて空きバイト総数、バイト総数が表示できたのですが、
 
 空きバイト数ではなく、現在の使用量を日々テキスト形式にて
 保存したいのですが、ご教授いただきたくお願い致します。
 
よろしくお願い致します。

回答
投稿日時: 19/11/24 10:24:00
投稿者: NoLookUp

↓1日1回という意味の仕様なら、こんなVBSを希望のタイミング(起動時)で実行する。
 

'------------------------------------
Dim DrvLt 'Drive Letter
Dim LogFN 'Log File Name
Dim FSO 'File System Object
Dim txt 'Text Line
Dim dt 'Date Time

DrvLt = "C:" '空きエリア探査ドライブ
LogFN = "E:\DirveSpace.txt" 'ログファイルパス名

Set FSO = CreateObject("Scripting.FileSystemObject")

'ログファイル最終行を取得
With FSO.OpenTextFile(LogFN, 1, True)
Do Until .AtEndOfLine
txt = .ReadLine
Loop
.Close
End With

'最終行の状況をチェック
If IsEmpty(txt) = False Then
    dt = Split(txt, ",")(0) '仕様以外の書式はエラーする
    If IsDate(dt) = True Then
        If CDate(dt) = Date Then WScript.Quit
    End If
End If

'現状を  [日付],[空き容量バイト]  の形式でCSV的なテキストファイルの末尾へ追加
With FSO.OpenTextFile(LogFN, 8, True)
.WriteLine Date & "," & FSO.GetDrive(DrvLt).TotalSize - FSO.GetDrive(DrvLt).AvailableSpace
.Close
End With

Set FSO = Nothing
'------------------------------------

トピックに返信