Finding root of a folder 1

[button71]

Is there a function around to find the root of a folder?

I am using a folder Aviation

It has a path - say C:\My Pictures\Aviation

I want to get to C:\My Pictures\

Anybody help?

Willaim

 

[baltman]

cPath="C:\My Pictures\Aviation"
?GETWORDNUM(cPath,1,"\")+"\"+GETWORDNUM(cPath,2,"\")+"\"

 

[baltman]

or

?LEFT(cPath,ATC("\",cPath,2))

 

[alvechurchdata]

if myPath = "C:\My Pictures\Aviation" then JustPath(myPath) will give you "c:\Pictures" and AddBS(JustPath(myPath)) will give you "c:\Pictures\".

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[Mike Lewis]

Geoff,

But surely that only works if the file is one-level down from the root?

If you do:

JUSTPATH("c:\my pictures\my aviation pictures\aviation")

then you'll get "c:\my pictures\my aviation pictures". That's not what William wanted, as far as I can see.

Mike


__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[alvechurchdata]

But surely that only works if the file is one-level down from the root?

The original post was to find the root of a folder. I must confess that I read that as "parent".

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[bborissov]

CLEAR
m1 = "c:\my pictures\my aviation pictures\aviation"
? LEFT(m1,AT([\],ADDBS(m1),2))
m1 = "c:\my pictures\my aviation pictures"
? LEFT(m1,AT([\],ADDBS(m1),2))
m1 = "c:\my pictures"
? LEFT(m1,AT([\],ADDBS(m1),2))

Borislav Borissov
VFP9 SP1, SQL Server 2000/2005.
MVP VFP

 

[JanBucek]

You can use following code:

lcOrigDir=sys(5)+sys(2003)
lcCurDir=curDir()
lcRootDir=lcCurDir
DO WHILE .not.(lcCurDir == "\")
lcRootDir=lcCurDir
cd ..
lcCurDir=curDir()
ENDDO
set default to (lcOrigDir)
? lcRootDir

 

[button71]

Sorry about the 'sleep' delay in answering we're 9.5 hrs in front of GMT down here <G>

To clarify I should have used a longer path - I need the folder above the one used before.

The start path will be of unknown length so the number of iterations is variable.

In my own clumsy way I coded

FUNCTION folderbefore
PARAMETERS  mytarget


*!*			mytarget is the previously used path

a = substr(mytarget ,len(mytarget),1)
IF a='\'
	N = 0
ELSE
	N = 1
ENDIF
Start = 1
DO while start # 0
	Start = rat('\',mytarget )
	mytarget = subst(mytarget,1,start - 1)
	IF n = 1
		mypictarget = mytarget
		EXIT
	ENDIF
	N = n+1
	
*!*		new path = mypictarget 
ENDDO
? mypictarget

RETURN mypictarget

The idea is that as the app is about viewing pictures after looking at one folder the user can choose to look at another below that parent folder.

Thanks

William

 

[Dan Freeman]

If all you need is the parent folder, try FULLPATH("..")

 

[button71]

Dan,

Many thanks - simplicity itself!

I just needed to

set defa to the original path

first - then bingo.

Great!

William

 

[JanBucek]

FULLPATH("..")

Dan, you are great.

 

[Dan Freeman]

Thanks, Jan, but I learned it from Dave Frankenbach. Next time you see him, buy him a beer. ;-)