搜索音乐CD及VCD、DVD影碟的完整类模块

最新推荐文章于 2022-07-31 16:47:46 发布

东方之珠

最新推荐文章于 2022-07-31 16:47:46 发布

阅读量1.5k

点赞数

本文链接：https://blog.csdn.net/chenjl1031/article/details/1889203

版权

这是一个VB6编写的类模块，用于搜索计算机上的CD、VCD和DVD光盘。它能检测多个光驱并返回其驱动器号，同时通过查找特定文件类型确定音乐CD、VCD或DVD的位置。

摘要由CSDN通过智能技术生成

Option Explicit
'************************************************************************
'*                        SeekDisc.dll                                                           *
'*   搜索CD、VCD、DVD的完整类模块；支持多光驱。          *
'*   功能：1、搜索所有光驱；                                                        *
'*              2、返回所有光驱驱动器号；                                        *
'*              3、返回光驱所在媒体路径；                                        *
'*   作者：ChenJL1031 QQ:644625998                                      *
'*   特别声明：转载请标明出处                                                      *
'************************************************************************
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_CDROM =