if ($tk{dir_tree}-> chdir ($dr{path}))
{
	$tk{dir_tree}-> delete('all');
	ShowServer($dr{path});
}
else
{
	Win32::MsgBox(“$^E”);
}