alias copydirs {
var %f = f $+ $ticks, %total, %folder = $$sdir($mircdir,Select a folder)
.fopen -o %f dvd.txt
if ($ferr) goto error
%total = $finddir(%folder,*DVD*,0,.fwrite -n %f $gettok($1-,-1,92))
echo -ac info * /copydirs: %total directories written to file
:error
if ($fopen(%f)) .fclose %f
}