WebjxCom提示:取得指定驱动器的可用空间数:本例演示如何首先创建一个FileSystemObject对象,然后使用AvailableSpace属性来获得指定驱动器的可用空间。取得指定驱动器的剩余空间容量:本例演示如何使用FreeSpace空间属性来取得指定驱动器的剩余空间。取得指定驱动器的总容量:本例演 |
Drive 对象
注意:本实例教程因为和具体空间的驱动器有关,所以运行结果请自行测试,不再提供运行结果。
取得指定驱动器的可用空间数
本例演示如何首先创建一个FileSystemObject对象,然后使用AvailableSpace属性来获得指定驱动器的可用空间。
本实例代码如下:
<html> <body> <% Dim fs, d, n Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive("c:") n = "驱动器:" & d n = n & "<br>以字节计的可用空间:" & d.AvailableSpace Response.Write(n) set d=nothing set fs=nothing %> </body> </html>
取得指定驱动器的剩余空间容量
本例演示如何使用FreeSpace空间属性来取得指定驱动器的剩余空间。
本实例代码如下:
<html> <body> <% Dim fs, d, n Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive("c:") n = "驱动器:" & d n = n & "<br />以字节计的剩余空间:" & d.FreeSpace Response.Write(n) set d=nothing set fs=nothing %> </body> </html>
取得指定驱动器的总容量
本例演示如何使用TotalSize属性来获得指定驱动器的总容量。
本文是网页教学(http://www.webjx.com)收集整理或者原创内容,转载请注明出处!
本实例代码如下:
<html> <body> <% Dim fs,d,n Set fs=Server.CreateObject("Scripting.FileSystemObject") Set d=fs.GetDrive("c:") n = "驱动器:" & d n = n & "<br>以字节计的总容量:" & d.TotalSize Response.Write(n) set d=nothing set fs=nothing %> </body> </html>
取得指定驱动器的驱动器字母
本例演示如何使用DriveLetter属性来获得指定驱动器的驱动器字母。
本实例代码如下:
<html> <body> <% dim fs, d, n set fs=Server.CreateObject("Scripting.FileSys |