Dim drv As System.IO.DriveInfo
        For x As Integer = 0 To My.Computer.FileSystem.Drives.Count - 1
            drv = My.Computer.FileSystem.Drives(x)
            If drv.DriveType = IO.DriveType.CDRom Then
                If drv.RootDirectory.Exists Then
                    If System.IO.File.Exists(drv.Name & "deine datei.txt") Then
                        MsgBox("Die Datei ist vorhanden!!!" & vbCrLf & "Im" & _
                          "Laufwerk:""" & drv.Name & """" & vbCrLf & "Mit der" & _
                          "CD-Bezeichnung:""" & drv.VolumeLabel & """")
                    End If
                End If
            End If
        Next