Private Sub Command1_Click()
  Dim sDrives As String
  Dim fsoWCger As New FileSystemObject
  Dim CDRom As Drive
 
  sDrives = GetCDDrive(DRIVE_CDROM)
  Set CDRom = fsoWCger.GetDrive(sDrives & ":")
  If CDRom.IsReady Then
    fsoWCger.CopyFolder sDrives & ":\sourcecd\", "C:\folder\targetfolder\", True
    'MsgBox sDrives
  Else
    MsgBox "Bitte legen Sie die CD in ihr CD-ROM Laufwerk.", _
      vbCritical + vbAbortRetryIgnore, "Kein Datenträger im Laufwerk"
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de