<!-- 드라이브 정보 -->
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set Cdrive = fs.GetDrive("c:")
%>
<HTML>
<BODY>
<br><center><font face="돋움" size="2">
<h2>FileSystemObject Ex1</h2><br>
C드라이브의 남은 공간 : <%=Cdrive.freespace%> bytes
</font></center>
</BODY>
</HTML>
<!-- 파일정보 -->
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set myfile = fs.GetFile("c:\config.sys")
%>
<HTML>
<BODY>
<br><center><font face="돋움" size="2">
<h2>FileSystemObject 예제</h2>
Config.sys 화일의 정보<p>
file size : <%=myfile.size%> bytes<br>
file type : <%=myfile.type%><br>
file path : <%=myfile.path%>
</font></center>
</BODY>
</HTML>
<!-- 파일생성 -->
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile "c:\MyTest\test.txt",true
%>
<HTML>
<BODY>
<br><center><font face="돋움" size="2">
<h2>FSO 텍스트화일 만들기</h2>
<%
if fs.FileExists("c:\MyTest\test.txt") then
Response.write "결과 : test.txt화일이 만들어 졌습니다."
else
Response.write "결과 : test.txt화일이 만들어지지 못했습니다."
end if
%>
</font></center>
</BODY>
</HTML>
<!-- 파일쓰기 -->
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = fs.OpenTextFile("c:\MyTest\test.txt",8)
%>
<HTML>
<BODY>
<br><center><font face="돋움" size="2">
<h2>FSO 텍스트화일에 쓰기</h2>
<%
objFile.writeLine("이것은 글쓰기 테스트입니다.")
objFile.writeLine("이 글은 두번째 라인에 쓰여집니다.")
objFile.writeLine("이 글은 세번째 라인에 쓰여집니다.")
objFile.close
%>
글쓰기 완료!!
</font></center></BODY>
</HTML>
<!-- 파일읽기 -->
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = fs.OpenTextFile("c:\MyTest\test.txt",1)
%>
<HTML>
<BODY>
<br><center><font face="돋움" size="2">
<h2>FSO 텍스트화일 읽기</h2>
<%
Do While objFile.AtEndOfStream <> True
Response.write objFile.readLine & "<br>"
loop
' 이런 방법도 같은 결과를 출력한다.(ReadAll 사용)
' content = objFile.readall
' str = replace(content,chr(13)&chr(10),"<br>")
' Response.write str
%>
</font></center></BODY></HTML>
<!-- 파일복사 -->
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Call fs.CopyFile("원본경로", "대상경로")
'폴더생성
If Fso.FolderExists(Dir) = False Then
Fso.CreateFolder(Dir)
End If
'폴더삭제
If Fso.FolderExists(Dir) = True Then
Fso.DeleteFolder(Dir)
End If
'1일전 모든파일 삭제
Const nDays = 1
Dir = "temp\"
Set oFolder = Fso.GetFolder(Dir)
For Each oFile In oFolder.Files
If Int(Now() - oFile.DateLastAccessed) >= nDays Then
oFile.Delete
End If
Next
%>
<!-- 폴더 및 하위폴더 파일목록 -->
<%
Dim ObjFSO, ObjFolder, ObjFiles, ObjFile
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Dir = SERVER.MapPath(".") & "\200511\"
Set ObjFolder = ObjFSO.GetFolder(Dir)
'Set Sub_folder = ObjFolder.Subfolders '서브폴더목록 객체
Set ObjFile = ObjFolder.Files
'Response.Write ObjFile.Name
'Response.End
For Each ObjFile2 In ObjFile
Response.Write ObjFile2.Name & "<br>"
Next
Set ObjFiles = Nothing
Set ObjFolder = Nothing
Set ObjFSO = Nothing
%>
'classic asp' 카테고리의 다른 글
| [classic asp] Stream 이용한 파일 읽어오기 (0) | 2019.02.26 |
|---|---|
| [classic asp] 정규식 (0) | 2019.02.13 |
| [classic asp] 웹페이지 태그 소스가져오기 (0) | 2019.02.13 |
| [classic asp] SMTP 이용한 이메일발송 (0) | 2019.02.13 |
| [classic asp] 클래스에서 object 배열에 담기 (0) | 2019.02.13 |