sub hasSubs {
	my $dir = shift;
	my $hasSubs=0;
	if (!($dir eq "\\")) { $dir="$dir\\"; }

	opendir (CURRENT, $dir) || die("Cannot open the dir: $dir");
	foreach my $file (readdir(CURRENT))
		{
		next if (($file eq ".") || ($file eq ".."));
		 if (-d $dir.$file)
		 	{
			 $hasSubs = 1;
			 last;
			}
		}
	closedir CURRENT;
	return $hasSubs;
}