下面的代码就可以检索出系统中所有的驱动器：
表单的ACTIVATE方法：
Declare Long GetDriveType In "kernel32" String nDrive
Dime I, DrvName, DrvType
For I = 0 To 25
DrvName = Chr(I + 65) + ":"
DrvType = GetDriveType(DrvName)
Do Case
Case DrvType = 2
Print "驱动器" + DrvName + "是一个软盘驱动器"
Case DrvType = 3
Print "驱动器" + DrvName + "是一个硬盘驱动器"
Case DrvType = 4
Print "驱动器" + DrvName + "是一个可移去式驱动器或网络驱动器"
Case DrvType = 5
Print "驱动器" + DrvName + "是一个CD-ROM驱动器"
Case DRIVE_RAMDISK
Print "驱动器" + DrvName + "是一个RAM 盘"
Case Else
EndcCase
Next I
二、使用FOXTOLLS.FLL中的DriveType函数
表单的ACTIVATE方法：
Set Libriry To FoxTools.FLL
Dime I, DrvName, DrvType
For I = 0 To 25
DrvName = Chr(I + 65) + ":"
DrvType = DriveType(DrvName)
Do Case
Case DrvType = 2
Print "驱动器" + DrvName + "是一个软盘驱动器"
Case DrvType = 3
Print "驱动器" + DrvName + "是一个硬盘驱动器"
Case DrvType = 4
Print "驱动器" + DrvName + "是一个可移去式驱动器或网络驱动器"
Case DrvType = 5
Print "驱动器" + DrvName + "是一个CD-ROM驱动器"
Case DRIVE_RAMDISK
Print "驱动器" + DrvName + "是一个RAM 盘"
Case Else
EndcCase
Next I
【VFP中确定驱动器类型的方法】相关文章：
北京24所中学高考成绩汇总02-10
饱和汽与饱和汽压的定义和汽化的方式02-10
饱和汽与饱和汽压的定义和汽化的方式02-10
爱心小天使的我作文02-10
2019年河北唐山中考数学试题02-10
地方专项与定向招生的区别在哪里02-10
初中写人作文：我的启蒙老师作文02-10
2019浙江省司法行政培训中心招聘公告02-10
小学生过平安夜的作文02-10
修车中常见的几种骗招02-10
郭广昌的复星金融帝国梦：一顿早餐开始的生意_励志人物02-10
风力侵蚀和风化作用的区别02-10