my $hProcess;

    if ( ! open($hProcess, "dir $SourceRoot 2>&1 |") ) {
        ::warn_message("Unable to resolve directory: $!");
        return();
    }