텍스트 파일 을 쓰 는 과정 함수(ASP)

오늘 프로그램 을 쓸 때 텍스트 파일 을 쓰 는 것 을 반복 해서 사용 해 야 하기 때문에 프로 세 스 함 수 를 썼 습 니 다.여러분 에 게 유용 하 기 를 바 랍 니 다.코드:Sub Write 2File(strFile,strContent,blnAppend)'파일 쓰기'strFile 파일 이름(경로),strContent 에 기 록 된 내용,blnAppend 추가 여부        On Error Resume Next        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")        If blnAppend Then                Set objWriteText = objFSO.OpenTextFile(strFile,8,True)        Else                Set objWriteText = objFSO.OpenTextFile(strFile,2,True)        End If        objWriteText.WriteLine (strContent)        Set objWriteText = Nothing        Set objFSO = Nothing        ' 잘못 사용 처리 하 다.        Select Case Err                Case 424 Response.Write"경 로 를 찾 을 수 없 거나 이 디 렉 터 리 에 쓰기 권한 이 없습니다."                Case Else Response.Write Err.Description                Case Else Response.Write Err        End SelectEnd Sub 호출 방법:Write2File"c:\d.ini","dd",True 또는 Call Write2File("c:\d.ini","dd",True)설명:1.자동 으로 파일 을 만 듭 니 다.2.디 렉 터 리 자동 생 성 불가

좋은 웹페이지 즐겨찾기