VFP中确定驱动器类型的两几种方法

在应用程序的设计中，有时我们需要知道用户的驱动程序的配置。在VFP，实现这一目标的方法有很多，具体如下:

首先，通过调用GetDriveType API函数来完成。

以下代码可以检索系统中的所有驱动器:

激活表单的方法:

在“kernel32”字符串nDrive中声明Long GetDriveType

Dime I，DrvName，DrvType
For I = 0到25
drv name = Chr(I+65)+":"
drv type = get drivetype(drv name)
Do Case drv type = 2
Print " DRIVE "+drv name+"是软盘驱动器"
Case drv type = 3
Print " DRIVE "+drv name+"是硬

第二，使用FOXTOLLS中的DriveType函数。劳德代尔堡

激活表单的方法:

将Libriry设置为FoxTools。劳德代尔堡

Dime I，DrvName，DrvType
For I = 0到25
drv name = Chr(I+65)+":"
drv type = DRIVE type(drv name)
Do Case drv type = 2
Print " DRIVE "+drv name+"是软盘驱动器"
Case drv type = 3
Print " DRIVE "+drv name+"是硬盘