$tk{dir_tree}->chdir( $dr{PATH} );
&AddItemToTable($tk{table}->{row}++,$tk{table}->{col}++,$dr{PATH});