一、获取文件大小 <% 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