[2008] read a directory tree

[.paul.]

dim path as string = "c:\windows\system32\drivers\cabs"
dim depth as integer = 3
dim tempArray() as string = path.split("\")
 
dim newPath as string 
for x as integer = 1 to depth
    newPath &= tempArray(x-1) & "\"
next

or

io.Directory.GetParent