取得指定驅(qū)動(dòng)器的剩余空間容量

代碼:

<!DOCTYPE html>

<html>

<body>

 

<%

Dim fs, d, n

Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set d=fs.GetDrive("c:")

n = "Drive: " & d

n = n & "<br>Free Space in bytes: " & d.FreeSpace

Response.Write(n)

set d=nothing

set fs=nothing

%>

 

</body>

</html>

結(jié)果:

Drive: C:
Free Space in bytes: 466982301696

相關(guān)文章
亚洲国产精品第一区二区,久久免费视频77,99V久久综合狠狠综合久久,国产免费久久九九免费视频