如何获得系统光驱的盘符
将函数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
0条评论