Option Explicit
 
Dim FSO As New FileSystemObject
Dim Folder As Folder
 
Dim UInfo1_01, UInfo1_02, UInfo1_03, UInfo1_04, UInfo1_05 As String
Dim UInfo1_06, UInfo1_07, UInfo1_08, UInfo1_09, UInfo1_10 As String
Dim UInfo1_11, UInfo1_12, UInfo1_13, UInfo1_14, UInfo1_15 As String
 
Dim SInfo1_01, SInfo1_02, SInfo1_03, SInfo1_04, SInfo1_05 As String
Dim SInfo1_06, SInfo1_07, SInfo1_08, SInfo1_09, SInfo1_10 As String
Dim SInfo1_11, SInfo1_12, SInfo1_13, SInfo1_14, SInfo1_15 As String
 
Dim LehrerOrdner As String
Dim Klassenname As String
Dim SpeicherOrt As String
 
 
Private Sub Copy_Click()
 
LehrerOrdner = "E:\Prüfung\"             ' Fixes Netzlaufwerk des Lehrers
Klassenname = KN.Text                    ' Der Klassenname zb. 4c Wird vom 
' Lehrer bestimmt
SpeicherOrt = LehrerOrdner + Klassenname ' entgültiger Speicherort
[color=red][u]HIER HIER HIER[/color]
SInfo1_01 = SpeicherOrt + "Info1-01" ' Verzeichnis aus dem die Dateien kommen 
' wird angelegt
 
 
' INFO 1 - 01 ABSCHNITT
 
UInfo1_01 = "e:\test\Info1-01" ' Hier den vollständigen Quell-Ordnerpfad angeben
 
  Set Folder = FSO.GetFolder(UInfo1_01)
  Folder.Copy SInfo1_01