- トノイテ、オ、、ソケヤ、マ、ウ、ホソァ、ヌ、ケ。」
- コス、オ、、ソケヤ、マ、ウ、ホソァ、ヌ、ケ。」
**フワシ。 [#ec0d08ea]
#Contents
**・ユ・。・、・フセ、ヒニノユ、ャニ、テ、ソセケ遉ホツクコ゚ウホヌァ [#hcaa91f9]
ク。コキイフ、チネ、゚ケ遉、サ、ニコタョ
***・ウ。シ・ノ [#z0be3c1c]
' ・ユ・。・、・・キ・ケ・ニ・爭ェ・ヨ・ク・ァ・ッ・ネ、シ霹タ、ケ、。」
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
**・・、・・ノ・ォ。シ・ノ、サネヘム、キ、ソツクコ゚ウホヌァ [#d446bb63]
FileSystemObject、ホCopyFile()。「MoveFile()。「DeleteFile()、ヌ、マ・・、・・ノ・ォ。シ・ノ、ャサネ、ィ、、ホ、ヒ。「FileExists()、ヌ、マサネ、ィ、゙、サ、。」~
イシオュ・オ・、・ネ、ホーホ、、ソヘ、ャス、、、ソエリソ、サネヘム、キ、ニ、ウ、ホフ萃熙ケノ、キ、ソ・ケ・ッ・・ラ・ネ。」
http://scripting.cocolog-nifty.com/blog/2008/02/fileexists_3b40.html
***・ウ。シ・ノ [#a4ea15d1]
' ・ユ・。・、・・キ・ケ・ニ・爭ェ・ヨ・ク・ァ・ッ・ネ、シ霹タ、ケ、。」
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
strDate = year(now()) & Right(00 & month(now()), 2) & Right(00 & day(now()), 2) & Right(00 & Hour(now()), 2) & Right(00 & Minute(now()), 2)
' ・ヌ・」・・ッ・ネ・熙サリト
chkDir = "C:\test\"
' ・ィ・鬘シ・皈テ・サ。シ・ク
errMsg = "・ィ・鬘シ、ャネッタク、キ、ニ、、、゙、ケ。ェ"
' ・ユ・。・、・フセ、サリト
errLog = chkDir & strDate
' ・ユ・。・、・、ホツクコ゚、ウホヌァ、ケ、
If FileExists( errLog & "*" ) Then
errNow = Now()
WScript.Echo errMsg,"(",errNow,")"
End If
' ・ェ・ヨ・ク・ァ・ッ・ネ、ホウォハ
Set fso = Nothing
Function FileExists(Spec)
Dim fso
Dim ParentFolderName
Set fso=CreateObject("Scripting.FileSystemObject")
ParentFolderName=fso.GetParentFolderName(Spec)
If ParentFolderName="" Then ParentFolderName="."
On Error Resume Next
fso.CopyFile Spec,ParentFolderName
'fso.MoveFile Spec,ParentFolderName
FileExists=Err.Number<>53
End Function