I'm attempting to write a small utility to help clean up my desktop. The idea is to rename desktop files to an "unsorted" folder for later review. The trick is that not all desktop items are on the system disk. I'm playing around with MacPerl::Volumes to get a list of devices, then I loop thru the volumes with glob() to get any "Desktop Folder" files.
My file spec doesn't seem to get the desktop files:
$spec = "$vol:Desktop Folder:*.*";
First of all, "*.*" will not match filenames without a "." in them, which may not be what you want. But it's moot, since globs don't match pathnames with spaces in them, IIRC.
I would (for each volume) make a dirhandle of the desktop folder. Then iterate through the handle and operate on the items (or store the names and operate in bulk later). See opendir and DirHandle, or whatever's current these days.
Before I go further, has anyone created this code already?
No doubt. :-) It's pretty easy, but let me know if you want some sample code.
Josh
-- Joshua Juran Metamage Software Creations - Mac Software and Consulting http://www.metamage.com/
* Creation at the highest state of the art *
