Private Sub CommandButton1_Click()
Dim arr2() As Variant
Dim arr3() As Variant
Dim arr4() As Variant
Dim objCb2 As Control
Dim objCb3 As Control
Dim objCb4 As Control
Dim i As Integer
Dim k As Integer
Dim Lw As String
Dim HV As String
Dim xTB2 As String
Dim xTB3 As String
Dim UV As String
Dim UV2 As String
Dim UV3 As String
Dim UV4 As String
Dim UV5 As String
Dim UV6 As String
Dim Dir_1 As String
Dim Dir_2 As String
Dim Dir_3 As String
Dim Dir_4 As String
Dim Dir_5 As String
Dim Dir_6 As String
Dim Fso, strV
Lw = TB_DEF_LW.Value
HV = TB_EBENE_1.Value
Dir_1 = Lw & "\" & HV
Dir_2 = Dir_1 & "\" & UV2
Dir_3 = Dir_2 & "\" & UV3
Dir_4 = Dir_3 & "\" & UV4
Dir_5 = Dir_4 & "\" & UV5
Dir_6 = Dir_5 & "\" & UV6
Set Fso = CreateObject("Scripting.FileSystemObject")
Lw = TB_DEF_LW.Value
HV = TB_EBENE_1.Value
Dir_1 = Lw & "\" & HV
Dir_2 = Dir_1 & "\" & UV2
Dir_3 = Dir_2 & "\" & UV3
Dir_4 = Dir_3 & "\" & UV4
Dir_5 = Dir_4 & "\" & UV5
Dir_6 = Dir_5 & "\" & UV6
For Each objCb2 In Me.Frame_2.Controls
If TypeName(objCb2) Like "Check*" Then
If objCb2.Value = True Then
i = i + 1
ReDim Preserve arr2(1 To i)
arr2(i) = objCb2.Name
xTB2 = "TB_EBENE_" & Right(arr2(i), Len(arr2(i)) - 2)
UV2 = Controls(xTB2).Value
Dir_2 = Dir_1 & "\" & UV2
If Fso.FolderExists(Dir_2) = False Then
MkDir Dir_2
MsgBox Dir_2 & " wurde angelegt"
Else
MsgBox Dir_2 & " vorhanden und wird benutzt"
End If
End If
End If
Next objCb2
For Each objCb3 In Me.Frame_3.Controls
If TypeName(objCb3) Like "Check*" Then
If objCb3.Value = True Then
i = i + 1
ReDim Preserve arr3(1 To i)
arr3(i) = objCb3.Name
xTB3 = "TB_EBENE_" & Right(arr3(i), Len(arr3(i)) - 2)
UV3 = Controls(xTB3).Value
Dir_3 = Dir_2 & "\" & UV3
If Fso.FolderExists(Dir_3) = False Then
MkDir Dir_3
MsgBox Dir_3 & " wurde angelegt"
Else
MsgBox Dir_3 & " vorhanden und wird benutzt"
End If
End If
End If
Next objCb3
end sub