7,762
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-09-30
- 打赏
- 举报
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Const DRIVE_CDROM = 5
Private Sub Command1_Click()
Dim i As Integer, mydrive As String
For i = 0 To 25
mydrive = Chr(i + 65) & ":\"
If GetDriveType(mydrive) = DRIVE_CDROM Then Debug.Print mydrive & " is cd-rom"
Next
End Sub
Const DRIVE_CDROM = 5
Private Sub Command1_Click()
Dim i As Integer, mydrive As String
For i = 0 To 25
mydrive = Chr(i + 65) & ":\"
If GetDriveType(mydrive) = DRIVE_CDROM Then Debug.Print mydrive & " is cd-rom"
Next
End Sub
vansoft 2005-09-30
- 打赏
- 举报
WMI
