At 16.42 -0400 1999.06.18, Vicki Brown wrote: >Should I go read the Glue readme? Yes, even if not for this task! :) Anyway, I got a script working to do it. The good news is it works just like the AppleScript version does. The bad news is that neither one changes the owner or group. :( #!perl -wl use strict; use Mac::Glue ':all'; my $f = new Mac::Glue 'Finder'; my_chown('Pudge', 'Peoples', 'Bourque:Desktop Folder:regents:'); sub my_chown { my($owner, $group, @list) = @_; foreach my $fol (@list) { my $folder = $f->obj(folder => $fol); $f->set( $f->prop(owner => $folder), to => $owner); warn $^E if $^E; $f->set( $f->prop(group => $folder), to => $group); warn $^E if $^E; } } __END__ Right now I have owner Peoples and group Pudge. If I do a get owner of folder (in AppleScript or Perl), I get those answers. But if I try to set them, nothing. I don't know if it is a bug in the Finder or what. If someone can get me three lines of AppleScript to set the owner or group, that would do it. I have: tell app "Finder" set group of folder "folder" to "group name" end tell -- Chris Nandor mailto:pudge@pobox.com http://pudge.net/ %PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6']) ==== Want to unsubscribe from this list? ==== Send mail with body "unsubscribe" to macperl-modules-request@macperl.org