XProfan

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

PROC SUBSTRCOUNT

    parameters a$ , d$
    declare b$
    b$ = Translate$(a$,d$,)
    return int(len(a$) - len(b$) + 1)

ENDPROC

declare pfad$
cls
pfad$ = ChooseDir$(Wählen Sie einen Pfad)
print Verzeichnistiefe (einschließlich Laufwerk)
print ---------------------------------------------
print C: = 1
print C:\ = 1
print C:\Windows\System = 3
print pfad$ , = , SubStrCount(pfad$,\)
waitinput
end