Const filePath = "D:\WEBDIR\teamList.txt"
Dim fso
set fso = server.createObject("Scripting.FileSystemObject")
if
fso.FileExists(filePath)
then
set textStream = fso.OpenTextFile(filePath, 1,false)
Dim contents
contents = textStream.ReadAll
Response.write contents
textStream.Close
set textStream = nothing
else
Response.write "Error"
end if
set fso = nothing
참고사항
OpenTextFile(파일이름[, iomode[,create[,형식]]])
파일이름: 필수적인 요소로 대상 파일 이름
iomode: 선택적인 요소로 입출력 모드
create: 선택적인 요소로 파일이 없을 경우 파일 생성 여부
형식: 선택적인 요소로 세 개의 tristate 값 중 하나를 사용 열릴 파일 형식. 기본값은 ASCII 형식
'프로그래머 > 프로그래밍' 카테고리의 다른 글
VB 프로세스 끝내기 (1) | 2009.11.26 |
---|---|
Internet Explorer의 작동이 중지 되었습니다. 비스타 오류 (0) | 2009.10.21 |
<s:submit /> 에서 이미지 사용하면서 값 전달 하기 (0) | 2009.10.20 |
모든 프로시져내 포함한 문자열 찾기 (0) | 2009.09.30 |
could not be resolved as a collection/array/map/enumeration/iterator type (0) | 2009.09.30 |
댓글