您现在的位置： IT专家网 > Web服务子站 > 技巧

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

作者: , 　出处:中国设计秀www.cnwebshow.com　,　责任编辑: 李春禹,　

2007-11-21 08:24

　　这是一个ASP显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了

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 &"
"
　　s = s & "可用空间：" & FormatNumber(d.FreeSpace/1024, 0)
　　s = s & "KB"
　　ShowFreeSpace = s
　　End Function

CTOCIO IT专家网

您现在的位置： IT专家网 > Web服务子站 > 技巧

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

这是一个ASP显示剩余磁盘空间的函数，需要的朋友可以拿去直接用就可以了

最新评论

网友评论

相关文章

最新文章

邮件订阅

专家答疑

白皮书

Webcast

BBS

该文章的读者还阅读了

Whatis