ファイルの存在確認 のバックアップ(No.2)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• ファイルの存在確認 へ行く。
  • 1 (2008-10-22 (水) 12:56:42)
  • 2 (2008-10-22 (水) 14:03:59)
  • 3 (2008-10-22 (水) 18:32:12)
  • 4 (2008-10-28 (火) 10:35:50)

' ファイルシステムオブジェクトを取得する。
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' ディレクトリを指定
chkDir = "C:\test\"

' エラーメッセージ
errMsg = "エラーが発生しています！"

' ファイル名を指定
strDate = year(now()) & Right(00 & month(now()), 2) & Right(00 & day(now()), 2)    
errLog = chkDir & strDate & "_error.log"

' ファイルの存在を確認する
If fso.FileExists( errLog) Then
    errNow = Now()
    WScript.Echo errMsg,"(",errNow,")"
End If

' オブジェクトの開放
Set fso = Nothing