>WITH This > SET STEP ON > lcDrive=SYS(5) > lcCurDir=CURDIR() >*!* lcPathAndFile=lcCurDir + "Dev.txt" >*!* lcFile=lcDrive + lcPathAndFile > *IF SYS(2000, lcFile) > IF ADIR(adevfile,lcDrive + CURDIR()+"DEV.TXT") > 0 > *IF FILE(lcFile) > *IF (lcDrive + lcCurDir + "Dev.txt") > .lDeveloper = .T. && Means that the developer file was found. Developer gets more menu choices. > ELSE > .lDeveloper = .F. && Normal User logging in at his workstation. > ENDIF > *** 09/26/2009 Cecil Champenois. Altering data paths. >>