제목 : 19. FSO(File System Object) : 파일(File) 처리
|
글번호:
|
|
27
|
|
작성자:
|
|
관리자
|
|
작성일:
|
|
2001/03/03 오전 1:11:00
|
|
조회수:
|
|
10306
|
■ 11일차 강의 - FSO(File System Object)
● FileSystemObject 객체는 컴퓨터의 파일 시스템에 액세스하기 위한 메소드를 제공한다.
● FileSystemObject 객체의 각 메소드를 사용하면, 파일과 폴더를 생성 또는 삭제 및 정보를 변경할 수 있다.
● FileSystemObject 객체의 인스턴스(사례) 생성
Set 인스턴스명 = Server.CreateObject("Scripting.FileSystemObject")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
이렇게 정의하면,
objFSO란 이름으로 FileSystemObjec의 모든 메소드를 사용할 수 있게된다.
● C드라이브의 정보
<% '드라이브 정보얻어오기
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
%>
<%
Set Cdrive = objFSO.GetDrive("C:")
%>
남은용량 : <%= Cdrive.FreeSpace %><br>
전체용량 : <%= Cdrive.TotalSize %><br>
● 파일의 정보 얻어오기
<% '파일의 정보얻어오기.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
%>
<%
Set FileInfo = objFSO.GetFile("C:\config.sys")
%>
파일크기 : <%= FileInfo.size %><br>
파일타입 : <%= FileInfo.type %><br>
파일경로 : <%= FileInfo.path %><br>
● 파일의 생성
<% '파일의 생성.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
%>
<%
Set objFile = objFSO.CreateTextFile("C:\test.txt",true,false) '첫번째 인자는 경로, 2.덮어쓰기 여부, 3. 유니코드로 생성(T) 또는 아스티로 생성(F) 여부
%>
<%
if objFSO.FileExists("C:\test.txt") then
Response.Write "파일이 만들어졌습니다."
else
Response.Write "파일이 만들어지지 못했습니다."
end if
%>
● 파일에 글쓰기
<% '파일에 글쓰기.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
%>
<%
Set objFile = objFSO.OpenTextFile("C:\test.txt",8) '1은 읽기전용, 8은 읽고쓰기 모드%>
<%
objFile.WriteLine("test파일을 읽고쓰기모드로 엽고 글을 씁니다.")
objFile.WriteLine("test파일의 두번째 라인에 글을 씁니다.")
objFile.WriteLine("test파일의 세번째 라인에 글을 씁니다.")
objFile.close 'close메소드로 열었던 파일을 닫아줌.
%>
● 파일에서 글읽어오기
<% '파일에서 글읽어오기.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
%>
<%
Set objFile = objFSO.OpenTextFile("C:\test.txt",1) '1은 읽기전용, 8은 읽고쓰기 모드%>
<%
Do While objFile.AtEndOfStream <> True
Response.Write objFile.ReadLine & "<br>"
loop
'content = objFile.readall
'str = replace(content,chr(13)&chr(10),"<br>")
'Response.Write str
%>
---------------------------------------------------------
'파일 크기를 계산해서 알맞은 단위로 변환해줌. (바이트 수)
Function ConvertToFileSize(intByte)
intFileSize = Int(intByte)
If intFileSize >= 1048576 Then
ConvertToFileSize = FormatNumber((intByte / 1048576), 2) & " MB"
Else
If intFileSize >= 1024 Then
ConvertToFileSize = FormatNumber((intByte / 1024), 0) & " KB"
Else
ConvertToFileSize = intByte & " Byte(s)"
End If
End If
End Function
---------------------------------------------------------