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
 
Weitere Links zum Thema
CD-ROM-Laufwerke öffnen und schließen
CD-Schublade öffnen und schließen
Laufwerks-Informationen ermitteln (FSO)

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: [ 2005 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 6. August 2011