家园首页 Php4手册 我的相册 家园下载 个人文集 给我留言
我形我塑,网络相册,www.5x54.com 相册 相册 心情相册,少女相册 免费申请,我形我塑免费相册
 家园 个人文集   http://www.5x54.com
 


ASP判断磁盘类型 DriveType 属性


作者:网上收集    点击: 读取中...

描述 (%$$679#^67)心情家园www.bbsdiy.net
返回一个描述指定驱动器的类型的值。 (%$$679#^67)心情家园www.bbsdiy.net
语法 (%$$679#^67)心情家园www.bbsdiy.net
object.DriveType  (%$$679#^67)心情家园www.bbsdiy.net
object 应为 Drive 对象的名称。  (%$$679#^67)心情家园www.bbsdiy.net
(%$$679#^67)心情家园www.bbsdiy.net
说明 (%$$679#^67)心情家园www.bbsdiy.net
以下代码举例说明如何使用 DriveType 属性:  (%$$679#^67)心情家园www.bbsdiy.net
引用代码:<% (%$$679#^67)心情家园www.bbsdiy.net
Sub ShowDriveType(drvpath) (%$$679#^67)心情家园www.bbsdiy.net
   Dim fs, d, s, t (%$$679#^67)心情家园www.bbsdiy.net
   Set fs = CreateObject("Scripting.FileSystemObject") (%$$679#^67)心情家园www.bbsdiy.net
   Set d = fs.GetDrive(drvpath) (%$$679#^67)心情家园www.bbsdiy.net
   Select Case d.DriveType (%$$679#^67)心情家园www.bbsdiy.net
     Case 0: t = "未知" (%$$679#^67)心情家园www.bbsdiy.net
     Case 1: t = "可移动" (%$$679#^67)心情家园www.bbsdiy.net
     Case 2: t = "固定" (%$$679#^67)心情家园www.bbsdiy.net
     Case 3: t = "网络" (%$$679#^67)心情家园www.bbsdiy.net
     Case 4: t = "CD-ROM" (%$$679#^67)心情家园www.bbsdiy.net
     Case 5: t = "RAM 磁盘" (%$$679#^67)心情家园www.bbsdiy.net
   End Select (%$$679#^67)心情家园www.bbsdiy.net
   s = "驱动器 " & d.DriveLetter & ": - " & t &"<BR>" (%$$679#^67)心情家园www.bbsdiy.net
   response.Write s (%$$679#^67)心情家园www.bbsdiy.net
End Sub (%$$679#^67)心情家园www.bbsdiy.net
(%$$679#^67)心情家园www.bbsdiy.net
ShowDriveType("C:") (%$$679#^67)心情家园www.bbsdiy.net
ShowDriveType("D:") (%$$679#^67)心情家园www.bbsdiy.net
ShowDriveType("E:") (%$$679#^67)心情家园www.bbsdiy.net
ShowDriveType("F:") (%$$679#^67)心情家园www.bbsdiy.net
ShowDriveType("G:") (%$$679#^67)心情家园www.bbsdiy.net
%> (%$$679#^67)心情家园www.bbsdiy.net
(%$$679#^67)心情家园www.bbsdiy.net
显示结果: (%$$679#^67)心情家园www.bbsdiy.net
引用代码:驱动器 C: - 固定 (%$$679#^67)心情家园www.bbsdiy.net
驱动器 D: - 固定 (%$$679#^67)心情家园www.bbsdiy.net
驱动器 E: - 固定 (%$$679#^67)心情家园www.bbsdiy.net
驱动器 F: - 固定 (%$$679#^67)心情家园www.bbsdiy.net
驱动器 G: - CD-ROM

收藏此文章     打印  更新     编辑此文章    『关闭窗口』