这是一个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 &"<BR>"
s = s & "可用空间：" & FormatNumber(d.FreeSpace/1024, 0)
s = s & "KB"
ShowFreeSpace = s
End Function
如果你在网站制作上遇到什么难题，欢迎咨询成都创新互联网站建设，我们专业从事网站建设，网页制作，域名注册，虚拟主机，企业邮局，网站备案和服务器租用等项目，欢迎您的咨询了解。您也可以登录我们的论坛（http://bbs.cdxwcx.com）来和更多的网站爱好者进行交流！
更新时间：2012-05-06
