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

##</code><code>##

my ( $volume, $directories, $file ) = File::Spec::Win32->splitpath( $Path );