请教API 函数GetDriveType返回值不在0-5之间怎么解释?

Question

我用API函数GetDriveType 获取驱动器的类型,代码如下:
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As LongPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim DriveType As Long
        DriveType = GetDriveType("C:\")
          
        Select Case DriveType            Case 0 'uknown disk
            Case 1 'no exist disk
            Case 2 'soft disk
            Case 3 'hard disk
            Case 4 'network mapping disk
            Case 5 'cd
            Case Else 'invalid disk        End Select
End Sub得到的DriveType值: 9222812402616107011,请问是什么原因?

Answer 1

你用的是VB.NET吧，如果在.NET下面，Long是64位的，所以你需要修改一下定义：Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer 用32位的Interget来取代。

Answer 2

Case Else 'invalid disk   ^o^

Answer 3

to sdrcxzy(大向) 
从参数来看，他是在VB.NET中调用的。