VBS ・ユ・。・、・、ホツクコ゚ウホヌァ
http://extstrg.asabiya.net/pukiwiki/index.php?VBS%20%A5%D5%A5%A1%A5%A4%A5%EB%A4%CE%C2%B8%BA%DF%B3%CE%C7%A7フワシ。 †
・ユ・。・、・フセ、ヒニノユ、ャニ、テ、ソセケ遉ホツクコ゚ウホヌァ †
ク。コキイフ、チネ、゚ケ遉、サ、ニコタョ
・ウ。シ・ノ †
' ・ユ・。・、・・キ・ケ・ニ・爭ェ・ヨ・ク・ァ・ッ・ネ、シ霹タ、ケ、。」 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
Last-modified: 2008-10-28 (イミ) 09:53:43 (5787d)