Option Explicit
Private sOrdner As String
 
Private Sub Form_Load()
  <font color=green>' Ordner erstellen</font>
  sOrdner = "d:
euer Ordner"
  MkDir sOrdner
End Sub
 
Private Sub Command1_Click()
  <font color=green>' Jetzt kopieren</font>
  Dim FSO As New FileSystemObject
  Dim Folder As Folder
 
  Set Folder = FSO.GetFolder(Dir1.Path)
  Folder.Copy sOrdner
End Sub