Ich glaub ich habs raus:
FUNCTION CountSlash(str)
pathParts = split(str,"\")
depth = ubound(pathParts)
CountSlash = depth
END FUNCTION
(Thanx to Miglar Gerald, meine Version war unnötig kompliziert...)
SUB GetMaxFolderdepth(folderspec)
Dim fso2, folder, s, element
Set fso2 = CreateObject("Scripting.FileSystemObject")
Set folder = fso2.GetFolder(folderspec)
For Each element in folder.SubFolders
temp = CountSlash(Cstr(element)) - CountSlash(StrukturPfad)+1
IF session("temp") < temp THEN
session("temp") = temp
END IF
GetMaxFolderdepth element
NEXT
END SUB
session("temp") = 0
GetMaxFolderdepth StrukturPfad
response.write session("temp")
Gehts noch einfacher?
Danke an alle, mfG,
Micha
-----Ursprüngliche Nachricht-----
Von: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Auftrag von Miglar Gerald,
pixelpoint multimedia werbe gmbh
Gesendet: Donnerstag, 17. Juni 2004 12:07
An: [EMAIL PROTECTED]
Betreff: AW: [Advanced.asp] Ordnertiefe feststellen
in welche richtung?
wenn du den pfad hast und wissen willst wieviele "überordner" existieren
müssts eigentlich mit
path = "C:\WINNT\System32\Drivers\Etc"
pathParts = split(path,"\")
depth = ubound(pathParts)
müsst dann 5 rauskommen - dann ziehst noch 1 ab fürs c: und das wars
dann oder?
und vielleicht sollte man noch abchecken ob am ende auch ein \ is oder
nicht.....
also wenn pathParts(ubound(pathParts)) = "" ist dann is das letzte ein \
oder so
in die andere richtung müsste man das ganze dir rekursiv durchgraben ...
lg g.
-----Ursprüngliche Nachricht-----
Von: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Im Auftrag von Michael Kunz
Gesendet: Donnerstag, 17. Juni 2004 11:59
An: [EMAIL PROTECTED]
Betreff: [Advanced.asp] Ordnertiefe feststellen
Morgen Liste.
Kennt jemand einen guten Weg, die Ordnertiefe eines Pfades zu bestimmen?
MfG,
Micha
_______________________________________________
Advanced.asp Mailingliste, Postings senden an:
[EMAIL PROTECTED] An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/advanced.asp
_______________________________________________
Advanced.asp Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/advanced.asp
_______________________________________________
Advanced.asp Mailingliste, Postings senden an:
[EMAIL PROTECTED]
An-/Abmeldung und Suchfunktion unter:
http://www.glengamoi.com/mailman/listinfo/advanced.asp
