Wie kriege ich den jeweiligen Laufwerksbuchstaben des Cd Laufwerks ausgelesen, zwecks starten von Programmen und Dateien von der Cd. (Bitte mit Syntaxbeispiel) Oder sollte es da andere Möglichkeiten geben?
Besten Dank,
Valentin
Hallo
mache zuerst einen Verweis auf „Microsoft Scripting Runtime“
Dann nimm diesen code
Private Sub Command1_Click()
Dim m_drv As Scripting.Drive
Dim m_fso As Scripting.FileSystemObject
Set m_fso = New Scripting.FileSystemObject
For Each m_drv In m_fso.Drives
If m_drv.DriveType = CDRom Then 'CDRom = 4
If m_drv.IsReady Then
MsgBox m_drv.DriveLetter & " " & m_drv.VolumeName
Else
MsgBox "Laufwerk " & m_drv & " " & „ist ein CD-Rom. Keine CD eingelegt“
End If
End If
Next
End Sub
gruss Giuseppe