my @dirs = File::Spec::Win32->splitdir($directories);
  my $delimiter = '!!SPLORG!!';
  print join($delimiter, @dirs) . "|$Name";
  print "\n";