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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 五华县| 三明市| 论坛| 察哈| 北流市| 金坛市| 三亚市| 海伦市| 梅州市| 崇明县| 张家界市| 且末县| 库尔勒市| 铁力市| 庐江县| 信阳市| 方正县| 黄大仙区| 汉沽区| 定安县| 营口市| 万盛区| 惠州市| 施秉县| 太和县| 潞西市| 阿巴嘎旗| 新宁县| 桂阳县| 琼结县| 汉源县| 黄冈市| 当涂县| 宝坻区| 株洲县| 资阳市| 广元市| 五峰| 崇阳县| 连江县| 大城县|