Find Sti

du kan jo bruge split
http://www.html.dk/dokumentation/vbscript/HTML/vsfctSplit.htm

RegExp

Så kom det til at se såden her ud:

dim strPhysPath,strPathArray,intArrayLimit
strPhysPath = Request.ServerVariables(\"SCRIPT_NAME\")
strPathArray = Split(strPhysPath, \"/\", -1, 1)
intArrayLimit = Ubound(strPathArray)


Function strUploadDir
Dim i
For i = 1 To intArrayLimit-1
strUploadDir = strUploadDir & strPathArray(i) & \"/\"
Next
End Functiondim strPhysPath,strPathArray,intArrayLimit
strPhysPath = Request.ServerVariables(\"SCRIPT_NAME\")
strPathArray = Split(strPhysPath, \"/\", -1, 1)
intArrayLimit = Ubound(strPathArray)


Function strUploadDir
Dim i
For i = 1 To intArrayLimit-1
strUploadDir = strUploadDir & strPathArray(i) & \"/\"
Next
End Function

Kan det evt. laves på en smarter måde, selvom det virker?

newstring = Mid(myStr, 2, InStrRev(myStr, \"/\") - 1)

/nuno