国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > VBScript > 正文

VBS教程:屬性-IsReady 屬性

2019-10-26 17:55:13
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

IsReady 屬性

如果指定的驅(qū)動(dòng)器就緒,返回 True;否則返回 False。

object.IsReady

object 應(yīng)為 Drive 對(duì)象的名稱。

說(shuō)明

對(duì)于可移動(dòng)媒體驅(qū)動(dòng)器和 CD-ROM 驅(qū)動(dòng)器,僅當(dāng)插入相應(yīng)的媒體并準(zhǔn)備接受訪問(wèn)時(shí),IsReady 返回 True。

以下代碼舉例說(shuō)明如何使用 IsReady 屬性:

Function ShowDriveInfo(drvpath)    Dim fso, d, s, t    Set fso = CreateObject("Scripting.FileSystemObject")    Set d = fso.GetDrive(drvpath)    Select Case d.DriveType        Case 0: t = "未知"        Case 1: t = "可移動(dòng)"        Case 2: t = "固定"        Case 3: t = "網(wǎng)絡(luò)"        Case 4: t = "CD-ROM"        Case 5: t = "RAM 磁盤(pán)"    End Select    s = "驅(qū)動(dòng)器 " & d.DriveLetter & ": - " & t    If d.IsReady Then         s = s & "<BR>" & "驅(qū)動(dòng)器已就緒。"    Else        s = s & "<BR>"  & "驅(qū)動(dòng)器未就緒。"    End IfShowDriveInfo = sEnd Function
發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 泗水县| 射阳县| 遂平县| 广平县| 平顺县| 抚松县| 千阳县| 家居| 阳信县| 和政县| 鸡东县| 新乐市| 门源| 德昌县| 和龙市| 灌南县| 项城市| 广宁县| 台中县| 常州市| 枝江市| 武城县| 茶陵县| 千阳县| 西平县| 油尖旺区| 灌南县| 会宁县| 兴宁市| 乡宁县| 日喀则市| 巴南区| 雷州市| 陇西县| 黄石市| 高州市| 张家界市| 宁波市| 辛集市| 东丽区| 阜南县|