Plocka bort filnamn?

Har fått hjärnsläpp.
Skulle behöva plocka bort filnamnet ur en fysisk sökväg men har glömt bort hur man gör.
Alltså, detta:
E:/ww2/www.blajjen.se/www/kottens/wfold/index.asp
Vill jag skall bli:
E:/ww2/www.blajjen.se/www/kottens/wfold/
Men förståss så skall det även funka med andra längder på filnamn.

strSokvag = "E:/ww2/www.blajjen.se/www/kottens/wfold/index.asp"
strSokvag = Left(strSokvag, InStrRev(strSokvag, "/"))

Ja, just ja. Men det är något mysko ändå.
Detta funkar som det skall:

strSokvag = "E:/ww2/www.blajjen.se/www/kottens/wfold/index.asp"
strSokvag = Left(strSokvag, InStrRev(strSokvag, "/"))
Response.Write strSokvag
[red]Skriver ut: E:/ww2/www.blajjen.se/www/kottens/wfold/[/red]

Och detta "funkar":

strSokvag = fil.path
Response.Write strSokvag
[red]Skriver ut: E:/ww2/www.blajjen.se/www/kottens/wfold/index.asp[/red]

Men inte detta

strSokvag = fil.path
strSokvag = Left(strSokvag, InStrRev(strSokvag, "/"))
Response.Write strSokvag
[red]Skriver inte ut något[/red]

Är inte det konstigt? :q

Vad innehåller fil.path då? Och på vilket sätt funkar det inte?

fil.path innehåller: E:/ww2/www.blajjen.se/www/kottens/wfold/index.asp, som jag visade i det 2:a exemplet.

Hm... Det verkar ju väldigt konstigt! Kanske det funkar bättre såhär, även fasst jag tvivlar på det.

strSokvag = CStr(fil.path)
strSokvag = Left(strSokvag, InStrRev(strSokvag, "/"))
Response.Write strSokvag

Ingen skillnad.

Jag fattar absolut noll. Kanske behöver sova lite, vad vet jag? ;)

strSokvag = Left(fil.path, InStrRev(fil.path, "/"))
Response.Write strSokvag

Nix, ingen skillnad. Jag är enig, det är helt sjukt. Fattar ingenting jag heller.

Det verkar som om fil.path inte innehåller något "/", för då skulle ju inget visas. Har du testat att byta / mot \? Man får ju försöka med allt som går här. :)

Jag såg det nu, hela sökvägen saknar "/", allt är ihopskrivet. Konstigt, måste kolla upp det

Jag klämde in en liten funktion innan jag plockade bort filnamnet, då verkar det funka. Har dock ingen aning varför hela sökvägen saknade alla slashar.

function fixSlash(strObj)
dim strNewObj
strNewObj=replace(strObj,"\","/")
strNewObj=replace(strNewObj,"//","/")
strNewObj=replace(strNewObj," ","%20")
fixSlash=strNewObj
end function