Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Having problem setting oldpath and newpath using CD comm
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00871446
Message ID:
00871459
Views:
21
Change
	IF FULLPATH(curdir()) != lcOldDir **** this is where I am having problems
* To
	IF NOT( FULLPATH(curdir()) == lcOldDir) 
The help for SET EXACT Command explains why. Also CD command doesn't generate an error if you try to swith to the current VFP directory.


>I am issuing a "CD" command to use getfile(). When I go to reset the my path to orginal path, the fullpath doesn't change. Here is the snippet of the code:
>
>
>WITH thisform
>	LOCAL lcNewDir,lcOldDir,z,d,f && z=returned path and filename, p=path split, f=file split
>
>	lcOldDir = .Dirloc1.gv_fullpath
>	lcNewDir = .Dirloc1.gv_docpath
>	IF FULLPATH(curdir()) != lcNewDir
>		CD (lcNewDir)
>	ENDIF
>	.z = GETFILE() && get directory and file name
>	b = RAT('\',.z) && find last '\'
>	l = LEN(.z)
>	.f = right(.z,ABS(b-l)) &&  file
>	.d = left(.z,b) && directory path
>
>	IF FULLPATH(curdir()) != lcOldDir **** this is where I am having problems
>		CD (lcOldDir)
>	ENDIF
>	IF VARTYPE(.z) = "C" AND !EMPTY(.z)
>		.t1.value = ALLTRIM(.z)
>		.t2.setfocus()
>		.t2.refresh()
>	ELSE
>		MESSAGEBOX('No file was choosen',0,'Warning')
>	ENDIF
>ENDWITH
>
>
>here is what my 2 path equal too:
>
>.Dirloc1.gv_fullpath = c:\programming\programs\vfp8\contract_track
>and
>.Dirloc1.gv_docpath = c:\programming\programs\vfp8\contract_track\documents\
>
>
>What is it that I am doing wrong here? I am check the paths before using CD because it gives me errors if I already have same path.
>
>thanks
>Nick Patel
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform