如何把错误信息输入到一个文本文件中?
假如脚本中途退出,如何把错误信息输入到一个文本文件中? 谢谢 $file=fileopen("错误信息.txt",9)filewrite($file,"这里是错误信息,也可以是变量,自己补充"@CRLF)
fileclose($file)
请自己完善代码。另外论坛很多实例,请善用搜索!
Dim $LogFile = 'Err.log'
Func WriteLog($str);记录出错及其他异常问题,$str为你想记录的内容
Local $file = FileOpen($LogFile, 1 + 8);1追加模式打开;8不存在则创建
If $file = -1 Then
msgbox(0,""," 无法打开日志文件:错误代码" & @error);
EndIf
$str = @YEAR & "年" & @MON & "月" & @MDAY & "日" & @HOUR & ":" & @MIN & ":" & @SEC & " " & $str
FileWriteLine($file, $str)
FileClose($file)
EndFunc ;==>WriteLog
回复 1# bin123485
请参考此帖: 替换掉难看的错误提示窗口
http://61.153.183.105/forum.php?mod=viewthread&tid=19784&highlight=%B4%ED%CE%F3 学习学习。。。。。。。。。。。。。。。 回复 3# olala
Logo很靓丽,哈哈~{:face (88):}
页:
[1]