驱动器操作教程-ASP动态网页设计

使用FileSystenObject对象也可以获取驱动器的各种信息。

使用FileSystenObject对象处理驱动器时，将用到该对象的DriveExists方法、Get Drive方法、GetDriveName方法和Drives属性，详见表5-4。

【例5.8】列出当前计算机上所有驱动器的驱动器号、总字节数和可用字节数，运行结果如图5-7所示。

图5-7 驱动器信息获取示例

文件命名为5-8.asp的代码如下：

〈％ @ LANGUAGE ＝″VBScript″％〉

〈HTML〉

〈HEAD〉

〈TITLE〉无标题文档〈/TITLE〉

〈/HEAD〉

〈BODY〉

〈％

Dim fso，drvs

Set fso＝Server.CreateObject（″Scripting.FileSystemObject″）

％〉(www.xing528.com)

〈TABLE ALIGN＝″center″BORDER＝″1″CELLSPACING＝″0″WIDTH＝″80％″〉

〈CAPTION〉〈B〉本机驱动器列表（共〈％＝fso.Drives.Count％〉个）〈/B〉〈/CAPTION〉

〈TR BGCOLOR＝″yellow″〉

〈TH〉驱动器〈/TH〉

〈TH〉总空间〈/TH〉

〈TH〉可用空间〈/TH〉

〈％For Each drvs In fso.Drives ％〉

〈TR〉

〈TD〉〈％＝drvs.DriveLetter ％〉盘〈/TD〉

〈TD〉〈％＝drvs.TotalSize ％〉字节〈/TD〉

〈TD〉〈％＝drvs.AvailableSpace ％〉字节〈/TD〉

〈％Next ％〉

〈/BODY〉

〈/HTML〉