首页 > > 程序设计 > VB >

如何获得系统光驱的盘符

2008-02-23 06:51:18来源：互联网阅读 ()

Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

该函数返回系统驱动器类型,返回值为5即为光驱,下面这个例子仅作简单的演示,你可以做进一步的改进以用在您自己的应用程序当中

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,已无可用驱动器

End Sub

上一篇：一个关于乘法溢出问题的探讨
下一篇：如何使用文件复制对话框

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有