XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Verzeichnisse beliebiger Tiefe erstellen
Syntax: GENERATEDIR C:TESTTEST-ZWEITEST-DREITEST-VIER

PROC GENERATEDIR

    parameters s$
    declare lw$
    let lw$=

    while len (S$)

        Let lw$=add$(lw$,Mid$(s$,1,add(1,len(substr$(S$,1,)))) )
        let s$=del$(s$,1,add(1,len(substr$(S$,1,))))
        MKDIR LW$

    wend

ENDPROC

cls
GENERATEDIR C:TESTTEST-ZWEITEST-DREITEST-VIER
print Das Verzeichnis
print
print C:TESTTEST-ZWEITEST-DREITEST-VIER
print
print wurde erstellt.
WaitInput
end