Private Declare Function DeviceIoControl Lib "kernel32" ( _
                         ByVal hDevice As Long, _
                         ByVal dwIoControlCode As Long, _
                         ByRef lpInBuffer As Any, _
                         ByVal nInBufferSize As Long, _
                         ByRef lpOutBuffer As Any, _
                         ByVal nOutBufferSize As Long, _
                         ByRef lpBytesReturned As Long, _
                         ByRef lpOverlapped As Any) As Long
 
Private Type STORAGE_DEVICE_NUMBER
    DeviceType As Long
    DeviceNumber As Long
    PartitionNumber As Long
End Type
 
Private Const IOCTL_STORAGE_GET_DEVICE_NUMBER As Long = &H2D1080
 
Public Function GetPhysDriveNumber(ByVal hDrv As Long) As Long
    Dim udtSDN As STORAGE_DEVICE_NUMBER
    Dim lngRet As Long
 
    If DeviceIoControl(hDrv, IOCTL_STORAGE_GET_DEVICE_NUMBER, ByVal _
        0&, 0&, udtSDN, Len(udtSDN), lngRet, ByVal 0&) Then
        GetPhysDriveNumber = udtSDN.DeviceNumber
    Else
        GetPhysDriveNumber = -1
    End If
End Function