Const fsoForAppend = 8
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'텍스트 파일을 수정 모드로 연다.
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("D:\WebRoot\ttl_mms\syscon\log_deliver.txt", fsoForAppend)
'텍스트 파일의 내용을 파일에 쓴다.
if Err <> 0 then
strResult = Err.Description
else
strResult = "SUCCESS"
end if
strLog = now() &"|"& PARAM &"|"& Err &"|"& strResult
objTextStream.WriteLine strLog
'TextStream 개체를 닫는다.
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing
[출처] http://kin.naver.com/detail/detail.php?d1id=1&dir_id=10112&eid=8qnir4vqnW1A4C83pRs9ROYiI9Cy3mla&qb=YXNwILfOsdc=&pid=f5lJJwoi5UZssb/Pi9Nsss--032104&sid=SJQhly34k0gAAGYuO-M
