2015年9月21日

ファイル名に日付を付加してコピー(バックアップ)する - VBScript

概要

ファイル名に日付文字列を付加してコピー(バックアップ)するVBScriptサンプルを記す。

例) aaa.txt → aaa_20150921.txt

サンプル

以下を任意のVBSファイル(例. backup.vbs)として保存。ダブルクリック等で実行。
Dim oFS, ddd
Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
'
ddd = "_"
ddd = ddd & Year(Now())
ddd = ddd & Right("0" & Month(Now()), 2)
ddd = ddd & Right("0" & Day(Now()), 2)
'
oFS.CopyFile "aaa.txt", "aaa" & ddd & ".txt"

以上

0 件のコメント:

コメントを投稿