Private Sub Copy_Click()
 
LehrerOrdner = "D:\Einsammeln Info1\"          
Klassenname = KN.Text                             
SpeicherOrt = LehrerOrdner + Klassenname          
 
MkDir SpeicherOrt                               
 
 
' INFO 1 - 01 ABSCHNITT
 
SpeicherOrtInfo1_01 = SpeicherOrt + "\Info1-01" 
 
SchuelerDatInfo1_01 = "D:\User\Info1-01" 
 
 
  Set Folder = FSO.GetFolder(SchuelerDatInfo1_01)  
  Folder.Copy SpeicherOrtInfo1_01