ASP如何擷取檔案和目錄空間大小

一、擷取檔案大小
 
<%
FPath=server.mappath("1.htm") '本地檔案位址
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFile(FPath)
size=f.size
response.write "檔案名稱："&f.name"<br>"
if size>="1000" then
   response.write "檔案大小："&f.size/1024&"KB<br>"
else
   response.write "檔案大小："&f.size/(1024*1024)&"MB<br>"
end if
response.write "建立時間："&f.DateCreated
%> 

 
二、擷取檔案夾大小
Function FunFileSize()
  dim FSO,dir,strSize
  set FSO = server.CreateObject("Scripting.FileSystemObject")
  set dir = FSO.GetFolder(Server.MapPath("../"))
  strSize = cSize(dir.Size)
  Set dir = Nothing
  Set FSO = Nothing
  FunFileSize = strSize
End Function