ファイルの存在確認 のバックアップソース(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• バックアップ を表示
• ファイルの存在確認 へ行く。
  • 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 = "エラーが発生しています！"
 
 ' ファイル名を指定
 strNow = Now()
 errLog = chkDir & Year(strNow) & Month(strNow) & Day(strNow) & "_error.log"
 
 ' ファイルの存在を確認する
 If fso.FileExists( errLog) Then
     errNow = Now()
     WScript.Echo errMsg,"(",errNow,")"
 End If
 
 ' オブジェクトの開放
 Set fso = Nothing