如何获得系统光驱的盘符

将函数GetDriveType Lib "kernel32 "别名" GetDriveTypeA "(ByVal n drive As String)声明为Long

该函数返回系统驱动器类型，返回值5为光驱。下面的示例只是一个简单的演示，您可以做进一步的改进，以便在自己的应用程序中使用它。

私有Sub GetCDRomLetter()

Dim DriveNum为整数

Dim驱动类型

将CDRom显示为整数

将驱动器号显示为字符串

将I表示为字节

DriveNum = 1

做

驱动数=驱动数+ 1

drive letter = Chr(drive num+65)+":\ "

DriveType = get DriveType(drive letter)

如果DriveType = DRIVE_CDROM，则进行调试。打印驱动器号' DRIVE_CDROM=5

循环，直到“DriveType = 1”的返回值为1，并且没有可用的驱动器。

End Sub