Hi MacPerlers,
I need to delete all empty folders (up to three sub-levels, if this matters)
for a given location. But when I try the following:
#!perl -w
use strict;
use File::Find;
# use Mac::Files;
finddepth (sub {
rmdir $_;
# FSpDelete $_;
}, 'Hard Disk:Support:); # thanks merlyn
all the sub-level folders - either empty or with files inside them - are
deleted, except the top-level folder ('Support:'). Bear in mind that I tried
to make use of FSpDelete as well, but I get the same unwanted result.
What am I doing wrong?
Thanks for you help and suggestions,
-- Ricardo
use MacPerl;
