I wrote this program 6 years ago.
I'm sorry that coments are in Spanish

Local Array aTemp[1], aFormas[1], aPrgs[1]
Local cProg

Close Tables All
* Borra información de los directorios en las formas
Wait Window 'Borrando información de directorios' Nowait
For I = 1 To  aDir(aFormas,'Forms\*.Scx')
	BorraDirFormas(aFormas[I,1])
EndFor

And the procedure is:

Procedure BorraDirFormas(cForma)

Close Tables All
Clear
* Elimina la terminación en caso de que sea pasada con el nombre de
* la forma
* Deletes extension if it exists.
cForma = JustStem(cForma)
Use (cForma+'.Scx')
* Se borra la información sobre el nombre de la base de datos
* Nota cada vez que se modifica la forma, esta información se regenera

* Busca por los registros que correspondan a "cursor"
Scan For BaseClass='cursor'
	* Busca por "..\" y "\" y borra la información entre ellas
	* Looks for "Database" And "\" and deletes with in them.
	cPropiedad = Properties
	nPos1 = Atc('Database',cPropiedad)
	nPos2 =Atc('.dbc',cPropiedad)+5

	* Evita que cambie la fecha de los archivos de las formas sí esta información
	* ya ha sido eliminada.
	* When the database properties had been removed it doesn't change
	* the form preserving the original form date 

	If nPos1 > 0
		Replace Properties With;
			Stuff(cPropiedad,nPos1, nPos2 - nPos1 + 1,'')
	EndIf
EndSCan

Use

Return