如何獲得系統(tǒng)光驅(qū)的盤符

Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
    該函數(shù)返回系統(tǒng)驅(qū)動器類型,返回值為5即為光驅(qū),下面這個例子僅作簡單的演示,你可以做進一步的改進以用在您自己的應用程序當中
    Private Sub GetCDRomLetter()
    Dim DriveNum As Integer
    Dim DriveType
    Dim CDRom As Integer
    Dim DriveLetter As String
    Dim i As Byte
    DriveNum = 1
    Do
    DriveNum = DriveNum + 1
    DriveLetter = Chr(DriveNum + 65) + ":\"
    DriveType = GetDriveType(DriveLetter)
    If DriveType = DRIVE_CDROM Then Debug.Print DriveLetter'DRIVE_CDROM=5
    Loop Until DriveType = 1'返回值為1,已無可用驅(qū)動器
    End Sub