发一个磁盘类型及盘符判断例子

*fuldho* *发表于 2012-10-10 10:13:29* · 发表于 2012-10-10 10:13:29

;;;;"ALL", "CDROM", "REMOVABLE", "FIXED", "NETWORK", "RAMDISK", "UNKNOWN"
Dim $Dr
;;;;;全局
$Drive=DriveGetDrive("ALL")
For $i = 1 To $Drive[0]
$Dr=StringUpper($Drive[$i])
MsgBox(0, "所有","你的磁盘有： "& $Dr &" 盘")
Next
;;;;;固定
$Drive=DriveGetDrive("FIXED")
For $i = 1 To $Drive[0]
$Dr=StringUpper($Drive[$i])
MsgBox(0, "硬盘","你的固定硬盘有： "& $Dr &" 盘")
Next
;;;;;移动
$Drive = DriveGetDrive("REMOVABLE")
For $i = 1 To $Drive[0]
$Dr=StringUpper($Drive[$i])
MsgBox(0, "移动","你的移动盘有： "& $Dr &" 盘")
Next
;;;;;光驱
$Drive = DriveGetDrive("CDROM")
For $i = 1 To $Drive[0]
$Dr=StringUpper($Drive[$i])
MsgBox(0, "光驱","你的光驱盘有： "& $Dr &" 盘")
Next

*nqawen* *发表于 2014-08-19 07:37:53* · 发表于 2014-08-19 07:37:53

谢谢了，，以后会用到

*leo* *发表于 2013-06-01 09:20:52* · 发表于 2013-06-01 09:20:52

有些专业了。

*醋溜白菜帮* *发表于 2013-06-01 07:57:13* · 发表于 2013-06-01 07:57:13

好，学习了

[其它] 发一个磁盘类型及盘符判断例子