vb,laufwerk öffnen

wie mache ich das ?

rivate Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Sub OpenTheDoor()
'Laufwerkstür öffnen
mciExecute "Set CDaudio door open"
End Sub

Sub CloseTheDoor()
'Laufwerkstür schließen
mciExecute "Set CDaudio door closed"
End Sub

geht nicht

 

und ich hab am Anfang das gleiche geschieben was bei dir bereits stand..... halb idiot :-)

 

thx
ich weiß nun wo mein problem liegt
ich hab alles in form load reingeschrieben, ich idiot...

 

so gehts..

'zunächst die benötigte API-Deklaration
Private Declare Function mciExecute Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

CD-Laufwerk öffnen

'CDROM-Laufwerk öffnen
Public Sub CDOpen()
mciExecute "Set CDaudio door open"
End Sub

CD-Laufwerk schliessen

'CDROM-Laufwerk schliessen
Public Sub CDClose()
mciExecute "Set CDaudio door closed"
End Sub

'Open
Private Sub Command1_Click()
CDOpen
End Sub

'Close
Private Sub Command2_Click()
CDClose
End Sub

******************************************************
oder der folgende Code (ist besser, so ist auch mein Programm CD Drive Tool aufgebaut)

' beliebiges CD-ROM Laufwerk öffnen
Public Sub x_CDOpen(Optional CDDrive As String = "")

Dim Buffer As String * 255
Dim DriveType As Long

' Wenn Laufwerksbuchstabe angegeben, dann prüfen
' ob es sich um ein CD-Laufwerk handelt
If CDDrive <> "" Then
DriveType = GetDriveType(CDDrive)
If DriveType <> DRIVE_CDROM Then
MsgBox "Laufwerk " & CDDrive & " ist kein " & _
"CD-Laufwerk", 16
Exit Sub
End If

' CD-Laufwrek öffnen
mciSendString "Open " & CDDrive & _
" Type cdaudio Alias cd", Buffer, 255, 0
mciSendString "set cd door open", 0&, 0, 0
mciSendString "close cd", 0&, 0, 0

' keine Laufwerksangabe -> Standard CDROM-Laufwerk
' öffnen
Else
mciSendString "set cdaudio door open", 0&, 0, 0
End If
End Sub

' beliebiges CD-ROM Laufwerk schliessen
Public Sub x_CDClose(Optional CDDrive As String = "")

Dim Buffer As String * 255
Dim DriveType As Long

' Wenn Laufwerksbuchstabe angegeben, dann prüfen
' ob es sich um ein CD-Laufwerk handelt
If CDDrive <> "" Then
DriveType = GetDriveType(CDDrive)
If DriveType <> DRIVE_CDROM Then
MsgBox "Laufwerk " & CDDrive & " ist kein " & _
"CD-Laufwerk", 16
Exit Sub
End If

' CD-Laufwrek schliessen
mciSendString "Open " & CDDrive & _
" Type cdaudio Alias cd", Buffer, 255, 0
mciSendString "set cd door closed", 0&, 0, 0
mciSendString "close cd", 0&, 0, 0

' keine Laufwerksangabe -> Standard CDROM-Laufwerk
' schliessen
Else
mciSendString "set cdaudio door closed", 0&, 0, 0
End If
End Sub

' CD-Laufwerk öffnen
Private Sub Command1_Click()
x_CDOpen Text1.Text
End Sub

' CD-Laufwerk schliessen
Private Sub Command2_Click()
x_CDClose Text1.Text
End Sub