SET DEFAULT TO 'C:\Pathproblem' IF .NOT. USED("Paths") USE Paths IN 0 ENDIF IF .NOT. USED("ModaCad") USE ModaCad IN 0 ENDIF SELECT ModaCad SET ORDER TO ModaCadOrderByMainKey SELECT Paths GO TOP SCAN SELECT ModaCad SEEK Paths.MainKey IF FOUND() REPLACE Paths with Paths.Path ENDIF SELECT Paths ENDSCAN