如何通过ASP查询特定文件或目录的存储空间占用情况？

本文共计189个文字，预计阅读时间需要1分钟。

获取文件大小并输出文件名：javascript文件名：1.htm文件大小：1000 字节

一、获取文件大小

<%
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