Dear Experts

Out side Exe, I use following procedure to delete printer information from reports.

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