Guten Abend allerseits
Ich möchte per Code sicherstellen, dass eine CD beim Start meines Programms
eingelegt ist. Auf dem Mac geht's, auf Windows kommt eine Fehlermeldung,
wenn keine CD eingelegt ist. Wie könnte man das lösen?
Hab's so probiert:
Dim i, n As Integer
n= VolumeCount-1
For i = 0 to n
if Volume(i).child("PSB-Setup.exe").Exists Then
MsgBox "Existiert"
Return
end
Next
MsgBox "CD einlegen"
Auf Nil prüfen verhindert die Fehlermeldung bei leerem Laufwerk auch nicht.
Merci für einen Tipp!
Gruess
Mike
