Ordner mit Unterordner erstellen

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von peterfido.

    Ordner mit Unterordner erstellen

    Hallo,

    mittels VBS möchte ich eine Ordner mit jeweiligen Unterordnern erstellen. Ich habe diesbezüglich schon einmal etwas vorbereitet ^^

    Visual Basic-Quellcode

    1. dim fso1, pfad, verzeichnis
    3. pfad = "D:\A1\A11\A111\A1111"
    5. Set fs01 = CreateObject("Scripting.FileSystemObject")
    7. If fs01.FolderExists(pfad) Then
    8. WScript.Echo "Ornder vorhanden "
    9. Else
    10. fs01.CreateFolder(pfad)
    12. End If


    Allersdings erstell er mit diese Ordnerstruktur nicht. :( Ist CreateFolder lediglich für die Erstellung von einem Ordner geeignet? wie könnte ich die gesamte Struktur erstellen ?

    Gruß

    ZdeathZ

    Visual Basic-Quellcode

    1. Set objShell = CreateObject("WScript.Shell")
    2. dim pfad
    3. pfad = "D:\A1\A11\A111\A1111"
    4. objShell.run("cmd.exe /C mkdir " & pfad )
    Gruß
    Peterfido

    Keine Unterstützung per PN!

Facebook
Telefonspende