获取磁盘类型

文件(夹)问题 | 2015-02-17 22:06:12 | 阅读 833 次 | 评论(0)
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
文章评论,共0条
游客请输入验证码
浏览264886次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...