Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Having problem setting oldpath and newpath using CD comm
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00871446
Message ID:
00871459
Vues:
22
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--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform