VBS関連情報 のバックアップ(No.1)

• バックアップ一覧
• ソース を表示
• VBS関連情報 は削除されています。
  • 1 (2011-08-15 (月) 16:43:22)
  • 2 (2011-12-27 (火) 20:58:14)

VBSを使って作成日付が古いファイルを削除する方法

指定されたフォルダ以下にある、フォルダやファイルの作成日を見て、規定の日付より古いモノを削除するvbsです。

'-----------------------------------
' オブジェクト定義
'-----------------------------------
dim arg
dim fso
dim subf
'
dim FileName   ' ファイル名
dim FolderName ' フォルダ名
dim ArgDam     ' 遡り日数
dim OldDate    ' 遡り日
dim FDate      ' ファイルないしフォルダの作成日

Set arg = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")


'-----------------------------------
' 引数の取得
'-----------------------------------
if arg.Count < 2 then
    ' 引数2が取得できない場合は7をセット
    ArgDam = 7
else
    ArgDam = arg(1)
end if

' 引数に指定されたフォルダの情報を取得
Set subf = fso.GetFolder(arg(0))


'-----------------------------------
' 直下の各ファイル確認処理
'-----------------------------------
For Each FileName In subf.Files

    ' ファイル名の取得
    fdate = FileName.DateCreated

    ' 温存と削除判定
    if DateDiff("d", fdate, date) >= argdam then
        ' ファイル削除
        fso.DeleteFile FileName
    end if
Next


'-----------------------------------
' 直下の各フォルダ確認処理
'-----------------------------------
For Each FolderName In subf.Subfolders

    ' フォルダ名の取得
    fdate = FolderName.DateCreated

    ' 温存と削除判定
    if DateDiff("d", fdate, date) >= argdam then
        ' フォルダ削除
        fso.DeleteFolder FolderName
    end if
Next


'-----------------------------------
' オブジェクト開放
'-----------------------------------
set fso = Nothing

引数１はフォルダ名、引数２は遡り日になります。
引数２は省略が可能で、省略した場合は７がセットされます。
バッチを動かした日から７日経過していれば、
そのファイルやフォルダは削除対象ということです。