It figures, I haven't used this code myself for many years.

>It's correct for VFP8 but VFP9 removes many more options from Expr field.
>
>>

>>Private lcFilename, lcStore, lcAlias,lnLength,lnTemp,lcCaption,temp,words
>>#DEFINE CRLF CHR(13)+CHR(10)
>>lcAlias=SELECT()
>>lcCaption=_VFP.CAPTION
>>dimension TEMP(1,1)
>>dimension WORDS(3)
>>WORDS(1)='DRIVER='
>>WORDS(2)='DEVICE='
>>WORDS(3)='OUTPUT='
>>
>>CD reports
>>
>>do RemovePrinterInfo with 'FRX'
>>do RemovePrinterInfo with 'LBX'
>>
>>CD ...
>>use
>>_VFP.CAPTION = lcCaption
>>
>>select (lcAlias)

>>

>>PROCEDURE RemovePrinterInfo
>>	LPARAMETERS lcFilter
>>	lcFilter='.'+lcFilter
>>
>>	lnDatabases = ADIR(laDatabases, '*'+lcFilter)  && Create array
>>
>>	FOR nCount = 1 TO lnDatabases
>>		lcFilename = STOR1(STRTRAN(laDatabases(nCount,1), lcFilter))
>>		_VFP.CAPTION = "Fixing " + lcFilename + lcFilter
>>		USE (lcFilename+lcFilter) IN 0 EXCLUSIVE
>>		SELECT (lcFilename)
>>		lnLength=ALINES(TEMP,EXPR)
>>		FOR EACH lnTeller in WORDS
>>			lnTemp=ASCAN(TEMP,lnTeller)
>>			IF lnTemp>0
>>				ADEL(TEMP,lnTemp)
>>				lnLength=lnLength-1
>>			ENDIF
>>		ENDFOR
>>		lcStore=''
>>		FOR EACH lnTeller in TEMP
>>			IF VARTYPE(lnTeller)='L'
>>				EXIT
>>			ENDIF
>>			IF LEN(lcStore)>0
>>				lcStore=lcLagre+CRLF
>>			ENDIF
>>			lcStore=lcStore+lnTeller
>>		ENDFOR
>>		REPLACE EXPR WITH lcStore, TAG WITH "", TAG2 WITH ""
>>		? "Deleted from " + lcFilename
>>		USE
>>	ENDFOR
>>ENDPROC