Desktop Clearing

------=_NextPart_000_0052_01C3A835.8CD3A700
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

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. =20

My file spec doesn't seem to get the desktop files:

$spec =3D "$vol:Desktop Folder:*.*";

Before I go further, has anyone created this code already?=20

Thanks.

Don
------=_NextPart_000_0052_01C3A835.8CD3A700--