這是一個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