Part of the Samples Website. 8/16/97.

---

samples.basicStuff.copyAllResources

«Copies all resources in the source file to dest file

on copyAllResources (source, dest)

local (cttypes = rez.countResTypes (source), i, id, name, data, currenttype, j, ct)

for i = 1 to cttypes

rez.getNthResType (source, i, @currenttype)

ct = rez.countResources (source, currenttype)

for j = 1 to ct

rez.getNthResource (source, currenttype, j, @name, @data)

rez.getNthResInfo (source, currenttype, j, @id, @name)

rez.putResource (dest, currenttype, id, @data)

This page was last built on Sat, Aug 16, 1997 at 6:33:56 PM. You can download the current set of sample scripts from our FTP site. Dave