foreach my $file (readdir(CURRENT))
		{
		next if (($file eq ".") || ($file eq ".."));
		my $checkDir="$dir\\$file";
		Win32::File::GetAttributes($checkDir, my $attrib);
		if ($attrib == 16) { return 1; }
		}