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


«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