Flere point.

Jeg har den rigtige kode til dig, men den er alt for lang til at vise her.

Jeg kan sende den til dig - mailadresse ?

Du kan også vælge at downloade koden fra min hjemmeside, men der er det i en større helhed og måske ikke så let at finde ?

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

Brian:
Det vil bare være kanon hvis du kunne sende koden.
d971213@student.dtu.dk

SwJensen:
Jeg har prøvet IsReady. Ikke lige som med den kode du har skrevet. Den skal jeg nok prøve, men IsReady opdager ikke hvis jeg f.eks. er i gang med Lademanns Leksikon. IsReady siger at CD-ROM er Ready, men det arbejder jo.

Undskyld sproget. Det er tidligt om morgen.

Luk venligst dette spørgsmål ;o)