Verzeichnisstruktur

hallo leute

hatte eigentlich schon lange diesen auftrag, bin aber ein bisschen in verspätung.
hier aber was ich bis jetzt habe.

dieses script erstellt eine verzeichnisstruktur die in einer xml datei definiert wird.
es ist nicht wirklich viel autoit, aber es ist eine gute möglichkeit mit xml dateien zu arbeiten.

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: Gianni

Script Function:
Erstellt eine Verzeichnisstruktur

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

Dim $FSO
Dim $XMLDocument
Dim $WSHShell
Dim $Eingabedatei
Dim $StartKnoten
Dim $Basisverzeichnis

;====== Bearbeiten!!!! ==============
$Basisverzeichnis = "D:\"
$Eingabedatei = @ScriptDir & "\verzeichnisstruktur.xml"
; ===== Bearbeiten!!!! ==============

$FSO = ObjCreate("Scripting.FileSystemObject")
$XMLDocument = ObjCreate("Msxml2.DOMDocument")
$XMLDocument.async = False
$WSHShell = ObjCreate("Wscript.shell")

If Not $FSO.FolderExists($Basisverzeichnis) Then
MsgBox(64, "Basisverzeichnis", "Basisverzeichnis wird erstellt!")
DirCreate($Basisverzeichnis)
EndIf

; Lade die XML
$XMLDocument.load($Eingabedatei)
$XMLDocument.async = False

$StartKnoten = $XMLDocument.documentElement

If $StartKnoten <> "" Then
_verzeichnisseAnlegen($StartKnoten, $BasisVerzeichnis)
Else
MsgBox(48, "Fehler", "Kein Startknoten")
EndIf

MsgBox(64, "Operation beendet", "Operation beendet. Bitte Pfade überprüfen!")

; =============================================
Func _verzeichnisseAnlegen($AktKnoten, $AktVerz)
Dim $Unterknoten
Dim $NeuerName
Dim $NeuerPfad
Dim $i
Dim $Knoten
Dim $Ordner

$Unterknoten = $AktKnoten.childNodes
For $i = 0 To $Unterknoten.length -1
$Knoten = $Unterknoten.Item($i)
If $Knoten.nodeType = 1 Then
$NeuerName = $Knoten.GetAttribute("Name")
$NeuerPfad = $AktVerz & "\" & $NeuerName
If Not $FSO.FolderExists($NeuerPfad) Then
$Ordner = DirCreate($NeuerPfad)
Else
MsgBox(48, "Fehler", "Verzeichnis " & $NeuerPfad & " ist bereits vorhanden..")
EndIf

_verzeichnisseAnlegen($Knoten, $NeuerPfad)
EndIf
Next
EndFunc

verzeichnisstruktur.xml

<VerzeichnisStruktur>
	<Verzeichnis Name="Ordner_1">
		<Verzeichnis Name="Ordner_1_1"></Verzeichnis>
		<Verzeichnis Name="Ordner_1_2"></Verzeichnis>
	</Verzeichnis>
	<Verzeichnis Name="Ordner_2">
		<Verzeichnis Name="Ordner_2_1"></Verzeichnis>
		<Verzeichnis Name="Ordner_2_2"></Verzeichnis>
	</Verzeichnis>
</VerzeichnisStruktur>

nicht vergessen, hier zu bearbeiten:

;====== Bearbeiten!!!! ==============
$Basisverzeichnis = "D:\"
$Eingabedatei = @ScriptDir & "\verzeichnisstruktur.xml"
; ===== Bearbeiten!!!! ==============

muss jetzt noch das ganze umkehren und aus einer verzeichnisstruktur eine xml erstellen.

wenn jemand lust hätte, könnte er vielleicht noch eine gui entwerfen um die xml dateien zu erstellen?!
nur so als idee.

auf feedbacks würd ich mich freuen.

grüsse