XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Verzeichnisbaum erstellen

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

GENERATEDIR C:TESTTEST-ZWEITEST-DREITEST-VIER