sub dyntree_openpath {
  my $tree = shift;
  my @dirs = split m!/!, shift();
  my $cur = '';

  foreach my $dir (@dirs) {
    $cur = join '/', $cur, $dir;
    $cur =~ tr{/}{/}s;
    dyntree_opendir($tree, $cur);
  }

  $tree->selectionClear();
  $tree->selectionSet($cur);
  $tree->see($cur);
}