ich habe mein Problem zwar schon in teilen in diesem Forum gefunden, leider war es noch nicht Problemlösend.
Wie der Betreff schon sagt muss ich Ordner mit einer gewissen Unterstruktur erstellen.
Ich habe eine Reihe an Equipments und in jeden dieser Ordner müssen 6 weiter.
Mein Quelltext lautet aktuelle:
Sub OrdnerErstellen()
Dim fso As Object
Dim i As Integer
Dim strPfad As String
Dim appWord As Object
Dim strText As String
Set fso = CreateObject("Scripting.Filesystemobject")
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
strPfad = ThisWorkbook.Path & "\" & Cells(i, 3) & ", " & Cells(i, 4) & " " & Cells(i, 5)
If Not ordnerda(strPfad) Then
MkDir strPfad
MkDir strPfad & "\Abnahme"
MkDir strPfad & "\Einweisung"
MkDir strPfad & "\Gebrauchsanweisung - Pflegehinweise"
MkDir strPfad & "\Gefährdungsbeurteilung"
MkDir strPfad & "\Komformitätserklärung"
MkDir strPfad & "\Validierung"
End If
Next i
Set fso = Nothing
strText = " Die Ordner mit den Dokumenten wurden angelegt !!!"
MsgBox strText, 64, "Meldung"
End Sub
Ich habe in Spalte/ Zeile A1 den beginn der laufenden Nummern.2000349007
2000349006
2000349005
2000349004
2000349003
2000349002
.
.
.