제목 : 웹사이트 용량 구하기 예제
글번호:
|
|
216
|
작성자:
|
|
레드플러스
|
작성일:
|
|
2004/10/14 오후 12:54:00
|
조회수:
|
|
6446
|
<%
Function GetWebSiteSize()
Dim objFso '드라이브의 정보를 얻어올 객체의 인스턴스용 변수.
Dim objFolder '특정 폴더의 모든 정보를 얻어올 핸들링 객체변수.
Dim intWebSiteSize
'FileSystemObject객체의 인스턴스 생성
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
'C:\InetPub의 핸들링 얻어오기
'Set objFolder = objFso.GetFolder("C:\InetPub")
Set objFolder = objFso.GetFolder(Server.MapPath("/"))'//루트 용량
intWebSiteSize = objFolder.Size
Set objFolder = Nothing
Set objFso = Nothing
GetWebSiteSize = intWebSiteSize'//Function명으로 반환(return)
End Function
%>
홈페이지 용량 <%=GetWebSiteSize()%>입니다.