CLOSE ALL

SELECT 1
USE "source\cuts" ALIAS src
SELECT 2
USE "target\cuts" ALIAS trg

IF CPCURRENT() <> CPDBF(1) .OR. CPCURRENT() <> CPDBF(2)
  ?"The codepage differs, dataloss may occur! Continue? (Y/N): "

  toets = 0
  DO WHILE toets <> ASC("Y") .AND. toets <> ASC("y")
    toets = INKEY()
    IF toets == ASC("N") .OR. toets == ASC("n") THEN
      ??CHR(toets)
      RETURN
    ENDIF
  ENDDO
  ??CHR(toets)
ENDIF

SELECT 2
SCAN ALL
  n = 1
  fp = path
  DO WHILE AT("\", fp, n)>0
    n = n + 1
  ENDDO  
  IF n > 1
    fn = RTRIM(SUBSTR(fp, AT("\", fp, n - 1) + 1))
    ?fn
    SELECT 1
    LOCATE FOR RIGHT(RTRIM(src->path), LEN(fn)) == fn
    IF FOUND()
      SET TALK OFF
      REPLACE trg->groupname WITH src->groupname
      REPLACE trg->head      WITH src->head
      REPLACE trg->tail      WITH src->tail
      REPLACE trg->mixtime   WITH src->mixtime
      REPLACE trg->talktime  WITH src->talktime
      SET TALK ON
    ENDIF
    SELECT 2
  ENDIF
ENDSCAN

SELECT 1
CLOSE ALL