ҵ CD-ROM   
ĺеǷ CD-ROMǾͷţûоͷؿַ 
Public Function BI_GetCDROMDrive() As String
    Dim lType As Long
    Dim i As Integer
    Dim tmpDrive As String
    Dim found As Boolean
    On Error GoTo ErrorHandler
    'Loop thru A-Z. If found, exit early.
    For i = 0 To 25
        tmpDrive = Chr(65 + i) & ":\"
        lType = GetDriveType(tmpDrive)     'Win32 API 
        If (lType = DRIVE_CDROM) Then     'Win32 API 
            found = True
            Exit For
        End If
    Next
    If Not found Then
        tmpDrive = ""
    End If
    BI_GetCDROMDrive = tmpDrive
ErrorHandler:
Err.Description = "BI_GetCDROMDrive ʧܣԤϵĴ"
BI_Errorhandler
End Function 
[ؼ] 

