![]() |
Tipp 0089
|
CD-ROM-Laufwerke ermitteln
|
 |
|
Autor/Einsender: Datum: |
|
Detlev Schubert 02.07.2001 |
|
Entwicklungsumgebung: |
|
VB 6 |
|
|
Mit der API-Funktion GetDriveType und der Konstanten DRIVE_CDROM ist es möglich alle im System angemeldeten CD-ROM-Laufwerke zu ermitteln.
|
|
|
Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_CDROM = 5
Private Sub Form_Load()
GetCDROMDrive
End Sub
Private Sub BI_GetCDROMDrive()
Dim intI As Integer
Dim tmpDrive As String
On Error GoTo ErrorHandler
For intI = 0 To 25
tmpDrive = Chr(65 + intI) & ":\"
If GetDriveType(tmpDrive) = DRIVE_CDROM Then
List1.AddItem tmpDrive
End If
Next
If List1.ListCount = 0 Then
List1.AddItem "Kein CD-ROM vorhanden"
End If
Exit Sub
ErrorHandler:
MsgBox "Es ist Fehler " & Err.Number & " - " & Err.Description _
& " aufgetreten."
Exit Sub
End Sub
|
|
|
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (2,6
kB)
|
Downloads bisher: [ 2004 ]
|
|
|