<%
  Dim objFSO, objOpenedFile, Filepath, sRead
  Const ForReading = 1, ForWriting = 2, ForAppending = 8
 

  Const FileName = "\readme.txt"

  '파일시스템 객체를 생성한다
  Set objFSO = CreateObject("Scripting.FileSystemObject")

   Filepath = Server.MapPath(Filename)


  '파일이 존재하면
  If objFSO.FileExists(Filepath) Then


     '함수원형 object.OpenTextFile(filename[, iomode[, create[, format]]])
     'TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
     '-2 시스템 기본값을 이용하여 파일을 연다, -1 유니코드 형식으로 파일을 연다,  0 ASCII 형식으로 파일을 연다
 

      Set objOpenedFile = objFSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault)
 
 

      sRead     = objOpenedFile.ReadAll  'ReadAll 메서드는 열린 파일 전체를 읽는다
      'sRead     = objOpenedFile.ReadLine 'ReadLine 메서드는 줄 바꿈 문자는 제외하고 줄 전체를 읽는다
      'sRead     = objOpenedFile.Read(4)  'Read 메서드는 열린 파일의 현재 위치에서 지정된 수의 문자를 읽는다
 

      Response.write "<pre>" & sRead & "</pre>"
      objOpenedFile.Close
      Set objOpenedFile = nothing
 
  Else

    

     Response.Write "파일명 " & Filename & " 파일이 없습니다."

                   

  End If

   

  Set objFSO = nothing
%>

2008/02/21 15:04 2008/02/21 15:04

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다