CD-rom styring.

Jeg er ikke sikker på om du kan bruge dette lille script til noget, men her for du navnet på drevet om det så hedder a: c: d: e: eller f:

MsgBox (Dir(\"F:\", 8))

kan også bruges sådan:

Private Sub Command1_Click()
Text1.Text = (Dir(Text2.Text, 8))
End Sub

Text2.Text skriver du drev eks: F:

Denne rutine åbner og lukker skuffen til CD-Rom drevet,
Du kigger, er der en CD..  Kører den rundt ?..


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

Call mciExecute(\"Set CDaudio door open\") \'Åbner dør

Call mciExecute(\"Set CDaudio door closed\") \' Lukker dør

;)

lav en reference til Microsoft Scripting Runtime:


Dim FSO As FileSystemObject
Dim aDrive As Drive
Set FSO = New FileSystemObject
For Each aDrive In FSO.Drives
    If aDrive.DriveType = CDRom And aDrive.IsReady = False Then
        MsgBox \"Please enter a CD.\"
        Exit For
    ElseIf aDrive.DriveType = CDRom Then
        MsgBox aDrive.VolumeName
        Exit For
    End If
Next
Set FSO = Nothing

SCB:
Den er god med dig. Det er altså ikke nok. Jeg skal vide lidt mere end jeg allerede ved.

SwJensen:
Se spørgsmålet, hvor du har svaret det samme.

Smid dette i et modul

Declare Function GetDriveType Lib \"kernel32\" Alias \"GetDriveTypeA\" (ByVal nDrive As String) As Long


Og denne kode i en form et eller andet¨¨

\' If The CD Drive Isn\'t Available, Then We Better Quit!
mciSendString \"close all\", 0, 0, 0
If (SendMCIString(\"open cdaudio alias cd69 wait shareable\", True) = False) Then
End
End If

\' If The CD Drive IS Ready, Then Let\'s Go On...
\'Henter Cd Type Nummer
SendMCIString \"set cd69 time format tmsf wait\", True
readcdtoc
TxtCdType.Text = cddbdiscid(totaltr)
\'If TxtCdType.Text = \"00000000\" Then End


TxtNextDriveBogstav.Text = \"Next Available Drive letter is \" & FreeDrive()

Ög her er lidt mer du kan gøre med Cd drevet


\'Læser Cd. Volumen Label

Dim FSO As FileSystemObject
Dim CDDrive As Drive
Set FSO = New FileSystemObject
Set CDDrive = FSO.GetDrive(TxtCdDrivBogstav.Text)



If CDDrive.IsReady Then
    TxtCdVolumen.Text = CDDrive.VolumeName
Else
    TxtCdVolumen.Text = \"Ingen Cd. fundet\"
End If
Set CDDrive = Nothing
Set FSO = Nothing

Nu kan du få både type Nr. og volumen label på Cd.

Er Nr = \"00000000\" er der inge cd. i drevet
Mvh
Boe

Luk venligst dette spørgsmål ;o)