on exportCardFields cardFolder
  if the number of cd flds > 0 then
    repeat with z = 1 to the number of cd flds
      put cardFolder & ":Card Field" && z into cardFieldFolder
      createPath cardFieldFolder
      writeFile cd fld z,cardFieldFolder & ":content"
      writeFile the script of cd fld z,cardFieldFolder & ":script"
      writeFile cardFieldProps(z),cardFieldFolder & ":properties"
    end repeat
  end if
end exportCardFields