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

首頁 > 學院 > 開發設計 > 正文

檢測磁盤類型的信息

2019-11-18 17:39:50
字體：大 中 小
來源：轉載
供稿：網友
磁盤類型的檢測是很有意義的。比如，安裝程序要懂得用戶所指定的磁盤是否為硬盤，不是則予以提示；又比如，要自動播放光盤中的音頻文件或影視文件，首先得判斷光驅的驅動器號才得以實現。那么，如何檢測磁盤的類型呢？
Windows的GetDriveType函數就是為獲取磁盤類型而準備的，利用它可以輕而易舉地得到我們所需的磁盤類型信息。以下以一個簡單的例子展示獲取壓縮盤以外的常規磁盤的類型這一有用的技術：

OptionExplicit

'申明API函數
Fori=0ToDrive1.ListCount
DrvNum=DrvNum 1
drvName=Chr(DrvNum) ":/"
DrvType=GetDriveType(drvName)
SelectCaseGetDriveType(drvName)
Case0
Me.Print"不明" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case2
Me.Print"軟驅" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case3
Me.Print"硬盤" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case4
Me.Print"網絡盤" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case5
Me.Print"光驅" "盤符為：" Trim(UCase(Chr(DrvNum)))
Case6
Me.Print"RamDisk" "盤符為：" Trim(UCase(Chr(DrvNum)))
EndSelect
Nexti

EndSub->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 龙川县| 探索| 九江市| 页游| 上蔡县| 湘西| 承德县| 乌恰县| 马鞍山市| 游戏| 闸北区| 白城市| 远安县| 兴山县| 黑水县| 沙坪坝区| 汽车| 东至县| 江源县| 德安县| 陆丰市| 微博| 搜索| 南郑县| 苗栗市| 咸宁市| 阿勒泰市| 镇安县| 新兴县| 当阳市| 阿尔山市| 百色市| 平顶山市| 兴文县| 调兵山市| 蒙阴县| 水城县| 寻甸| 武隆县| 会东县| 秦皇岛市|