共有3417人关注过本帖树形打印

主题:asp获取文件大小

帅哥哟,离线,有人找我吗?
gaofeng
  1楼 个性首页 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:3510 积分:11231 威望:5 精华:7 注册:2000/5/19 10:19:38
asp获取文件大小  发帖心情 Post By:2014/5/10 15:52:47

'函数作用:获取文件大小
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

支持(0中立(0反对(0回到顶部