Private Sub copyCD(ByVal path As String)
  Dim fsoWCger As New FileSystemObject
  Dim dateien As Files
  Dim verzeichnisse As Folders
  Dim startordner As Folder
  Dim datei As File
  Dim verzeichnis As Folder
  Dim sDrives As String
  Dim anzahl As Integer
  Dim CDRom As Drive
 
  sDrives = GetCDDrive(DRIVE_CDROM)
  anzahl = anzahl + getAnzahl(path)
  Set startordner = fsoWCger.GetFolder(path)
  Set dateien = startordner.Files
  For Each datei In dateien
     datei.Copy "C:\targetfolder\subfolder1\", True 'Fehlermeldung: Fehler:70 
     ' Zugriff verweigert
     datei.Attributes = ReadOnly = False
     fsoWCger.CopyFolder sDrives & ":\sourcefolder\*", _
     "C:\targetfolder\subfolder1\", True
     'MsgBox datei
     anzahl = anzahl - 1
     lblStatus.Caption = "Kopiere: " & datei
     lblProgress.Caption = "Verbleibend: " & anzahl
  Next
  Set verzeichnisse = startordner.SubFolders
  For Each verzeichnis In verzeichnisse
        Call copyCD(verzeichnis.path)
  Next
 
End Sub