---

Hi @ all!

Ich hab schon im Internet recherchiert und auch schon die Windoof Hilfe durchforstet aber ich kann leider nichts finden.

Ich suche ein Progrämmchen oder eine Möglichkeit wie z.B. eine Umgebungsvariable mit der ich auslesen kann, welchen Laufwerksbuchstaben das CD-ROM(am besten noch das, von dem gerade gelesen wird falls es mehrere Laufwerke gibt) ausgelesen und übergeben wird.

Gibt es sowas? Läßt sich das realisieren? Wo kann ich sonst noch Infos dazu finden?

MfG

Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Chris,

ich kann dir zwar nur eine selbstgestrickte Lösung für VB zeigen, aber damit kannst du schon mal sehen, wie man es machen könnte.

Code:

---

Option Explicit

'API zum erkenne von Laufwerkstypen
Declare Function GetDriveType Lib "kernel32.dll" _
    Alias "GetDriveTypeA" (ByVal lpRootPathName As String) As Long

'GetDriveType return values
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6

Private Sub Main()
    '
    MsgBox "Erstes CD-Laufwerk ist Buchstabe: " & BerFindFirstAudioCDS
End Sub

Function BerFindFirstAudioCDS() As String
    'Funktion sucht nacheinander alle Laufwerksbuchstaben ab, bis es ein
    'CD-Laufwerk mit eingelegter Audio-CD findet
    ' Rückgabewert: 0 - nix gefunden
    '              1 - Laufwerk mit Audio-CD gefunden
    Dim i As Integer
    Dim lDrive As Long
    Dim szRoot As String
    On Error Resume Next    'wenn's einen Fehler hat, ist das Laufwerk nicht vorhanden
   
    For i = 0 To 24    '24 mögliche Buchstaben ohne die Floppys A: und B:
        szRoot = Chr$(Asc("C") + i) & ":\"
        lDrive = GetDriveType(szRoot)
        If lDrive = DRIVE_CDROM Then
            BerFindFirstAudioCDS = szRoot
            Exit Function
        End If
    Next 'i

---

Ciao,
Stefan

------------------
Inoffizielle Solidworks Hilfeseite
http://solidworks.cad.de
EMail: Stefan.Berlitz@solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP