오늘날 프로그램을 작성할 때 텍스트 파일 작성을 반복적으로 사용해야하므로 프로세스 기능을 작성하여 모든 사람에게 유용하기를 바라고 있습니다.
암호:
Sub Write2file (Strfile, Strcontent, blnappend)
'파일에 쓰십시오
'strfile 파일 이름 (Path), strcontent가 작성한 내용, blnappend를 추가할지 여부
다음에 오류가 재개됩니다
set objfso = server.createobject ( "scripting.filesystemobject")
그렇다면 blnappend
set objwritetext = objfso.opentextfile (strfile, 8, true)
또 다른
set objwritetext = objfso.opentextfile (strfile, 2, true)
끝 If
objwritetext.writeline (strcontent)
objwritetext = nothing을 설정하십시오
OBJFSO = 아무것도 설정하지 않습니다
'결함 내성 처리
케이스 오류를 선택하십시오
CASE 424 RESPING.WRITE "경로를 찾을 수 없거나 디렉토리에 쓰기 권한이 없습니다".
'Case Else Response.write err.description
CASE ELSE RESPING.WRITE err
종료 선택
종료 서브
통화 방법 :
write2file "c : /dd.ini", "dd", true
또는
Call Write2File ( "C : /dd.ini", "DD", True)
설명 :
1. 파일을 자동으로 만듭니다.
2. 카탈로그는 자동으로 만들 수 없습니다