Private Sub Command1_Click()
 
Dim sDrives As String
Dim fsoWCger As New FileSystemObject
Dim fldr As Folder
Dim CDRom As Drive
 
sDrives = GetCDDrive(DRIVE_CDROM)
If CDRom.IsReady Then
    CDRom.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