Imports System.IO
 
Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      If CheckFileOnCD("DeineDatei.dat") Then
         MsgBox("Gefunden")
      Else
         MsgBox("Nicht vorhanden")
      End If
   End Sub
 
   Private Function CheckFileOnCD(ByVal sFile As String) As Boolean
      For Each d As DriveInfo In DriveInfo.GetDrives
         If d.DriveType = DriveType.CDRom Then
            If File.Exists(d.Name & sFile) Then
               Return True
            End If
         End If
      Next
   End Function
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control