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