- トノイテ、オ、、ソケヤ、マ、ウ、ホソァ、ヌ、ケ。」
- コス、オ、、ソケヤ、マ、ウ、ホソァ、ヌ、ケ。」
' ・ユ・。・、・・キ・ケ・ニ・爭ェ・ヨ・ク・ァ・ッ・ネ、シ霹タ、ケ、。」
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' ・ヌ・」・・ッ・ネ・熙サリト
chkDir = "C:\test\"
' ・ィ・鬘シ・皈テ・サ。シ・ク
errMsg = "・ィ・鬘シ、ャネッタク、キ、ニ、、、゙、ケ。ェ"
' ・ユ・。・、・フセ、サリト
strNow = Now()
errLog = chkDir & Year(strNow) & Month(strNow) & Day(strNow) & "_error.log"
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