VFP中確定驅動器分類的2幾種辦法

    在應用程序的設計中，有時我們需要知道用戶的驅動器的配置情況，在VFP中有多種方法可以實現，現介紹如下：

    一、通過調用GetDriveType API函數來完成。

    下面的代碼就可以檢索出系統中所有的驅動器：

    表單的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