Changing Directories 1

[gwillr]

I have the folllowing code:

<% 
Dim sPath, filesys, getValue, update, count 
sPath = Request.ServerVariables("Path_Translated") 
sPath = Left(sPath,InStrRev(sPath,"\")) & "counter.txt" 
Set filesys = CreateObject("Scripting.FileSystemObject") 
%>

the file 'counter.txt' needs to be to a paralell directory, that is, i have to go up on level, then down one level in to a diffenret folder. I have tried using ./levelXX/counter.txt but it has not seemed to work. I have also tried using the full http:// url without success.

Any suggestions would be appreciated.

Gary

http://www.robarspages.ca

 

[PHV]

Something like this ?
sPath = Left(sPath,InStrRev(sPath,"\")) & "..\levelXX\counter.txt"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[tsuji]

Or brut-force?
[tt]
apath=split(spath,"\")
snewpath=""
for i=0 to ubound(apath)-2
snewpath=snewpath & apath(i) & "\"
next
erase apath
snewpath=snewpath & "the_parallel_directory" & "\" & "counter.txt"
[/tt]
- tsuji

 

[gwillr]

PH

Worked like a charm! Thanks!

Gary

http://www.robarspages.ca