获取磁盘类型10bet手机官网
分类:web前端

Local  lnI, drvName, drvType ,mydri
mydri=""
for lni=1 to 25
    drvname=chr(64+lni)+": "
    drvtype=drivetype(drvname)
    do case
        case drvtype = 1
            driname="驱动器 " + drvname + "无类型"
        case drvtype = 2
            driname="驱动器 " + drvname + "是一个软盘驱动器"
        case drvtype = 3
            driname="驱动器 " + drvname + "是一个硬盘驱动器"
        case drvtype = 4
            driname="驱动器 " + drvname + "是一个可移去式驱动器或网络驱动器"
        case drvtype = 5
            driname="驱动器 " + drvname + "是一个CD-ROM驱动器"
        case drvtype = 6
            driname="驱动器 " + drvname + "是一个RAM 盘"
    endcase
    mydri=mydri+iif(directory(drvname),chr(13)+chr(13)+driname,"")
endfor
messagebox(mydri)

方法二:

? "枚举电脑上的所有驱动器:"
* WSH
Local loFSO, loDrive
loFSO = Createobject('Scripting.FileSystemObject')
For Each loDrive In loFSO.Drives
    ? loDrive.DriveLetter, loDrive.Drivetype, loDrive.isReady, IIF(loDrive.isReady, loDrive.Totalsize, -1)
Next

本文由10bet手机官网发布于web前端,转载请注明出处:获取磁盘类型10bet手机官网

上一篇:Python的网络编程,模型理解 下一篇:转换为日期型数据
猜你喜欢
热门排行
精彩图文