Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Having problem setting oldpath and newpath using CD command
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Having problem setting oldpath and newpath using CD command
Miscellaneous
Thread ID:
00871446
Message ID:
00871446
Views:
56
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
Next
Reply
Map
View

Click here to load this message in the networking platform