国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板: 清远市| 保定市| 文安县| 奉贤区| 崇义县| 苏尼特左旗| 井陉县| 清丰县| 嘉兴市| 海兴县| 鹤岗市| 兴国县| 锡林郭勒盟| 梁山县| 宿松县| 吉林省| 怀柔区| 军事| 福贡县| 仙游县| 凤冈县| 曲沃县| 南城县| 吉木乃县| 托克逊县| 正安县| 清新县| 赫章县| 柳州市| 眉山市| 景谷| 和龙市| 五台县| 商南县| 太白县| 共和县| 西充县| 蕲春县| 东兰县| 苍溪县| 那曲县|