フワシ。

・ユ・。・、・フセ、ヒニノユ、ャニ、テ、ソセケ遉ホツクコ゚ウホヌァ

ク。コキイフ、チネ、゚ケ遉、サ、ニコタョ

・ウ。シ・ノ

' ・ユ・。・、・・キ・ケ・ニ・爭ェ・ヨ・ク・ァ・ッ・ネ、シ霹タ、ケ、。」
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

・・、・・ノ・ォ。シ・ノ、サネヘム、キ、ソツクコ゚ウホヌァ

FileSystemObject、ホCopyFile()。「MoveFile()。「DeleteFile()、ヌ、マ・・、・・ノ・ォ。シ・ノ、ャサネ、ィ、、ホ、ヒ。「FileExists()、ヌ、マサネ、ィ、゙、サ、。」
イシオュ・オ・、・ネ、ホーホ、、ソヘ、ャス、、、ソエリソ、サネヘム、キ、ニ、ウ、ホフ萃熙ケノ、キ、ソ・ケ・ッ・・ラ・ネ。」

http://scripting.cocolog-nifty.com/blog/2008/02/fileexists_3b40.html

・ウ。シ・ノ

' ・ユ・。・、・・キ・ケ・ニ・爭ェ・ヨ・ク・ァ・ッ・ネ、シ霹タ、ケ、。」
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

1ハャチー、ヒタクタョ、オ、、ソ・ユ・。・、・、ホツクコ゚ウホヌァ

' ・ユ・。・、・・キ・ケ・ニ・爭ェ・ヨ・ク・ァ・ッ・ネ、シ霹タ、ケ、。」
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' ニノユ、ホタクタョ
yDate = year(now())
moDate = Right(00 & Month(now()), 2)
daDate = Right(00 & Day(now()), 2)
hoDate = Right(00 & Hour(now()), 2)
miDate = Right(00 & Minute(now()), 2)

if miDate = 00 then
 hoDate = Right(00 & Hour(now()), 2) -1
 miDate = "59"
else
 miDate = Right(00 & Minute(now()), 2) -1
end if

strDate = yDate & moDate & daDate & hoDate & miDate

'
' ・ヌ・」・・ッ・ネ・熙サリト
chkDir = "C:\Documents and Settings\PT4\・ヌ・ケ・ッ・ネ・テ・ラ\test\"

' ・ィ・鬘シ・皈テ・サ。シ・ク
errMsg = "・ィ・鬘シ、ャネッタク、キ、ニ、、、゙、ケ。ェ"

' ・ユ・。・、・フセ、サリト
errLog = chkDir & strDate

' イサタシ・ユ・。・、・、ホサリト
strSoundFile = "C:\WINDOWS\Media\Windows XP Ringin.wav"

' ・ユ・。・、・、ホツクコ゚、ウホヌァ、ケ、
If FileExists( errLog & "*" ) Then
   set objectShell = CreateObject("wscript.Shell")
   strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
   objectShell.Run strCommand, 0, True
   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

・ネ・テ・ラ   ハヤスク ナ犢 コケハャ 写酌識失竺識捨釈 ナコノユ ハ」タス フセチーハムケケ ・・。シ・ノ   ソキオャ ーヘ ク。コ コヌスェケケソキ   ・リ・・ラ   コヌスェケケソキ、ホRSS
Last-modified: 2008-10-28 (イミ) 09:53:43 (5602d)