ASP中显示剩余磁盘空间的函数

分类: asp 出处：iocblog整理更新时间：2009-04-30 添加到收藏

　　这是一个asp显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了，function showfreespace（drvpath）[www.iocblog.net 来源]

function showfreespace(drvpath) 
　　dim fso, d, s 
　　set fso = createobject("scripting.filesystemobject") 
　　set d = fso.getdrive(fso.getdrivename(drvpath)) 
　　s = "驱动器 " & ucase(drvpath) & " - " 
　　s = s & d.volumename &" [www.iocblog.net 来源]
" 
　　s = s & "可用空间：" & formatnumber(d.freespace/1024, 0) 
　　s = s & "kb" 
　　showfreespace = s 
　　end function

文章整理：iocblog
版权申明：本站文章均来自网络，如有侵权，请联系我们，我们收到后立即删除，谢谢！
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。