>> >>CLEAR ALL >>USE fldmap >>GO top >>LOCAL loWSH, cClassLoc, cClassValue, cFldType, cKey >>loWSH = CREATEOBJECT("wscript.shell") >>#define REGPATH "HKEY_CURRENT_USER\Software\Microsoft\VisualFoxPro\7.0\Options\IntelliDrop\FieldTypes\" >>IF VARTYPE(loWSH) = "O" >> IF NOT EMPTY(classloc) AND NOT EMPTY(classname) >> SCAN >> cKey = REGPATH+ALLTRIM(fldtype)+"\ClassLocation" >> loWSH.RegWrite(cKey,ALLTRIM(classloc)) >> cKey = REGPATH+ALLTRIM(fldtype)+"\ClassName" >> loWSH.RegWrite(cKey,ALLTRIM(classname)) >> ENDSCAN >> ENDIF >>ENDIF >>USE IN fldmap >> >>>>