VBSバックアップ

質問

バックアップスクリプト(VBS)について教えて下さい。
単純にディレクトリをバックアップするスクリプトは、出来たのですが
これに付加機能を与えたいです。

◆世代管理をしたい。

◆iniファイルから、バックアップ元と先、管理する世代等の情報を読み込みたい。

<bkup.vbs>

Option Explicit

Const ForReading = 1 '読み込み
Const ForWriting = 2 '書きこみ（上書きモード）
Const ForAppending = 8 '書きこみ（追記モード）

Dim objFileSys
Dim objShell
Dim strCopyFrom
Dim strCopyTo
Dim strToDir
Dim strNewDate

WScript.echo "バックアップを開始します"

Set objFileSys = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")

strNewDate = Year(Now) & _
Right(("0" & CStr(Month(Now)+0)),2) & _
Right(("0" & CStr(Day(Now)+0)),2)

strCopyFrom = "C:\vbs"
strToDir = "C:\backup"
strCopyTo = objFileSys.BuildPath(strToDir,strNewDate)

If objFileSys.FolderExists(strCopyTo) = True then
WScript.echo "指定のパスには既にディレクトリが存在する為、" & _"バックアップ処理を中断します。"
WScript.Quit

Else objFileSys.CopyFolder strCopyFrom,strCopyTo
WScript.echo "バックアップ処理は正常に完了しました。"
End If

Set objFileSys = Nothing
Set objShell = Nothing

宜しくお願い致します。

回答No.1

BLUEPIXY

VBScript でini ファイルを扱う機能は用意されていないです。
（多分レジストリを使えということでしょう＾＾；）
なので、自分で機能を実装しないといけないですが、
http://winofsql.jp/VA003334/vbsguide060101070259.htm
にそのようなサンプル(ini ファイルを扱うAPIをスクリプトで実装したもの）がありました。

トレンド的には、ini ファイルよりXML ファイルでデータを持つのがいいのかもしれません。
XML の処理は、VBScript からActiveX を使って簡単に使えます。

お礼

BLUEPIXY様、マルチな方なんですね^^
アドバイスありがとうございます。
どおりで、調べても凡例がないわけですよね。。。

XMLファイルからの読み込みですね！解りました、
早速そっちで調べてみます。
ありがとうございました。