一個ASP顯示剩余磁盤空間的函數

 這是一個ASP顯示剩余磁盤空間的函數需要的朋友可以拿去直接用就可以了
Function ShowFreeSpace(drvPath)
    Dim fso d s
    Set fso = CreateObject(ScriptingFileSystemObject)
    Set d = fsoGetDrive(fsoGetDriveName(drvPath))
    s = 驅動器 & UCase(drvPath) &
    s = s & dVolumeName  &<BR>
    s = s & 可用空間 & FormatNumber(dFreeSpace/ )
    s = s & KB
ShowFreeSpace = s
End Function
From:http://tw.wingwit.com/Article/program/ASP/201311/21732.html