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

这是一个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
如果你在网站制作上遇到什么难题，欢迎咨询成都凡科互联网站建设，我们专业从事网站建设，网页制作，域名注册，虚拟主机，企业邮局，网站备案和服务器租用等项目，欢迎您的咨询了解。您也可以登录我们的论坛（）来和更多的网站爱好者进行交流！