Option Explicit
 
Private Sub Command1_Click()
  <font color=green>' ausgewählten Ordner kopieren (inkl. aller
  ' Unterordner)</font>
  Dim FSO As New FileSystemObject
  Dim Folder As Folder
 
  If Dir1.Path <> Dir2.Path Then
    Set Folder = FSO.GetFolder(Dir1.Path)
    Folder.Copy Dir2.Path
  Else
    MsgBox "Ein Ordner kann nicht in sich selbst kopiert werden!"
  End If
End Sub
 
Private Sub Drive1_Change()
  Dir1.Path = Drive1.Drive
  Dir1.Refresh
End Sub
 
Private Sub Drive2_Change()
  Dir2.Path = Drive2.Drive
  Dir2.Refresh
End Sub