' zunächst die benötigten API-Deklarationen
Private Declare Function GetLogicalDriveStrings _
  Lib "kernel32" Alias "GetLogicalDriveStringsA" _
  (ByVal nBufferLength As Long, _
  ByVal lpBuffer As String) As Long
 
Private Declare Function GetDriveType Lib _
  "kernel32" Alias "GetDriveTypeA" _
  (ByVal nDrive As String) As Long
 
Public Const DRIVE_REMOVABLE = 2
Public Const DRIVE_FIXED = 3
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_CDROM = 5
Public Const DRIVE_RAMDISK = 6
 
' Alle Laufwerke eines bestimmten Typs ermitteln
' z.B. CD-ROM Laufwerke
Function GetAllDrives(Optional ByVal DriveType As _
  Long = 0) As String
 
  Dim I As Integer
  Dim Result As Long
  Dim Drives() As String
  Dim Dummy As String
  Dim sDrives As String
 
  Dummy = Space(255)
  Result = GetLogicalDriveStrings(Len(Dummy), Dummy)
 
  Drives = Split(Dummy, Chr$(0))
  For I = 0 To UBound(Drives) - 1
    If GetDriveType(Drives(I)) = DriveType Or _
      DriveType = 0 Then
      sDrives = sDrives & Left$(Drives(I), 1)
    End If
  Next I
  GetAllDrives = sDrives
End Function

' Alle CD-Laufwerke in einer ComboBox anzeigen
Dim sDrives As String
Dim i As Integer
sDrives = GetAllDrives(DRIVE_CDROM)
For i = 1 To Len(sDrives)
  Combo1.AddItem Mid$(sDrives, i, 1) & ":"
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de