{---------------------------------------------------------------------}

DEFINE Loadfiles
  LOCAL File
  LOCAL I

  FBROWSER SET_DIR "."
  CREATE_LTAB "Fehlertab"
  LET I 1
  WHILE (I <= (LTAB_ROWS "FBT_FTAB"))
    LET File (READ_LTAB "FBT_FTAB" I 1)
    TRAP_ERROR
    DELETE ALL CONFIRM
    LOAD File
    IF (CHECK_ERROR)
      WRITE_LTAB "Fehlertab" I 1 (File + " ... kann nicht gelesen werden")
    ELSE
      {******** DA KOMMT DIE ACTION HIN ********}

      TRAP_ERROR
      STORE ALL DEL_OLD File
      IF (CHECK_ERROR)
        WRITE_LTAB "Fehlertab" I 1 (File + " ... kann nicht geschrieben werden")
      ELSE
        WRITE_LTAB "Fehlertab" I 1 (File + " ... OK")
      END_IF
    END_IF
    LET I (I + 1)
  END_WHILE

  SAVE_LTAB "Fehlertab" SCREEN
  DELETE_LTAB "Fehlertab"

END_DEFINE

{---------------------------------------------------------------------}