unless($dirname =~ /\\$/){		
	$dirname .= "\\";
}