lcPath=''

>Dear Experts
>
>Out side Exe, I use following procedure to delete printer information from reports.
lcPath = ''
>
>With Exe I do not distribute REPORTS Folder to clients.
>How is it possible to use following procedure in Exe, where there is not Reports Folder.
>
>Please Help
>

>LOCAL lnHand
>lcPath = "D:\GIN2006\REPORTS\" && modification is needed here in this line of lcPath
>lnFiles = Adir(laFiles,lcPath  + '*.frx',"A",1)
>
>lcMsg = ''
>FOR lnX = 1 To lnFiles
>	IF Used(laFiles(lnX,1))
>		SELECT (laFiles(lnX,1))
>		USE
>	ENDIF
>	USE (lcPath + laFiles(lnX,1))
>	WAIT Window 'Processing : ' + Alias() Nowait
>	GO Top
>	REPLACE Tag With '',tag2 With ''
>	lnLines = Alines(laLines,Expr,.T.)
>	lcMsg = ''
>*- create a file
>	lnHand=fcreate(addbs(sys(2023))+"expr.txt")
>	FOR lnY = 1 To lnLines
>		DO Case
>		CASE At('ORIENTATION=',laLines(lnY)) <> 0
>			=fputs(lnHand, laLines(lnY))
>		CASE At('COPIES=',laLines(lnY)) <> 0
>			=fputs(lnHand, laLines(lnY))
>		ENDCASE
>	NEXT
>*- close the file
>	=fclose(lnHand)
>*- append to the EXPR memo field
>	APPEND MEMO Expr FROM addbs(sys(2023))+"expr.txt" OVERWRITE
>NEXT
>MESSAGEBOX('Process completed.',64,'Printer Info')
>CLOSE Tables All
>