asp获取文件大小的函数

admin

2011年12月14日 16:34 本文热度 2827

'asp获取文件大小
'函数作用：获取文件大小
Function getFileSize(FileName)
'判断文件名是不是为空
if FileName="" then
getFileSize="0KB"
Exit Function
end if
Dim oFso,oFile,sFile
sFile=FileName
Set oFso=Server.CreateObject("Scripting.FileSystemObject")
'判断获取文件大小的文件是否存在
If oFso.FileExists(Server.MapPath(sFile)) Then
Set oFile=oFso.GetFile(Server.MapPath(sFile))
'判断获取文件大小
getFileSize= CStr( CDbl( FormatNumber( oFile.Size / 1024))) & "KB"
else
getFileSize="0KB"
Exit Function
end if
Set oFile=nothing
Set oFso=nothing
End Function
'运用函数获取文件大小
response.write getFileSize("aaa.gif")

该文章在 2011/12/14 16:34:06 编辑过


全部评论2
	admin 2011年12月14日 16:35 a=多少KB，只取KB前数字 if a>"1024" then a=a/1024&"MB" end if 该评论在 2011/12/14 16:35:23 编辑过
	admin 2011年12月14日 16:36 asp获取文件大小/类型/创建时间/文件夹下面的所有文件信息一、asp获取文件大小,类型,创建时间　　只要修改一下文件路径就行了.很好用的代码,刚收集的.拿出来共享一下. 把以下代码保存成 file_info.asp 并运行程序代码： <% Function showsize(filename) FPath=server.mappath(filename) set fso=server.CreateObject("scripting.filesystemobject") If fso.fileExists(FPath) Then Set f = fso.GetFile(FPath) filetype=f.type filesize=f.size adddate=f.DateCreated Select Case true Case filesize<1024 fsize=filesize&" B" Case filesize<1048576 fsize=Round((filesize/1024),2)&" KB" Case filesize<1073741824 fsize=Round((filesize/1024/1024),2)&" MB" Case else fsize=Round((filesize/1024/1024/1024),2)&" GB" End Select Response.Write "文件大小："&fsize&"，文件类型："&filetype&"，创建时间："&adddate else Response.Write"文件不存在!" end if End Function %> asp中引用： <%Call showsize("123.rar")%> 二、如何用asp获取指定文件夹下面的所有文件信息利用FSO可以做到但是你要注意文件夹的权限设置 <% Option Explicit dim infopath '当前路径 dim serverpath '服务器路径 dim objfso '文件组件 dim objfile '文件 dim objfolder '目录 dim objfoldercontents '所有文件 dim objfoldercount '临时数组变量-文件夹 dim objfileitem '临时数组变量-文件 infopath=request.servervariables("path_info") '得到文件相对路径根据自己需要修改 serverpath=server.mappath(infopath) '得到文件绝对路径根据自己需要修改 set objfso=createobject("scripting.filesystemobject") '实例文件组件 set objfile=objfso.GetFile(serverpath) '读取文件所在路径 set objfolder=objfile.parentfolder '根据文件所在路径得到上级目录 set objfoldercontents=objfolder.files '所有文件付给数组 response.write "<table width=100% border=0><tr>" response.write "<td>文件名</td>" response.write "<td>文件属性</td>" response.write "<td>文件大小</td>" response.write "<td>更新日期</td></tr>" for each objfoldercount in objfolder.subfolders '循环显示文件夹 response.write "<tr><td><a href=?path="&objfoldercount.name&" target=""_blank"">"&objfoldercount.name&"</td>" '文件夹名称 response.write "<td>"&objfoldercount.type&"</td>" '文件夹属性 response.write "<td> </td>" '文件夹大小 response.write "<td>"&objfoldercount.DateCreated&"</td>" '时间 next for each objfileitem in objfoldercontents '循环 response.write "<tr><td><a href="&objfileitem.name&">"&objfileitem.name&"</a></td>" '文件名 response.write "<td>"&objfileitem.type&"</td>" '类型 response.write "<td>"&objfileitem.size&"k</td>" '文件大小 response.write "<td>"&objfileitem.datelastmodified&"</td></tr>" '更新日期 next response.write "</table>" %> 该评论在 2011/12/14 16:37:14 编辑过

关键字查询

文件

函数

获取

大小

正在查询...

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。

asp获取文件大小的函数

全部评论2