sub FileVersion($$$)
{
    my ($path, $fileName, VersionID) = @_;

    if ("" eq $fileName)
    {
        $filespec = "$path\\*.inf";
    }
    else
    {
        $filespec = "$path\\$fileName";
    }

    @INFFiles = `dir /b $filespec`;
          
    foreach $infFile (@INFFiles)
    {
        chomp $infFile;
        $infFile = "$path\\$infFile";
        $encoding = GetFileEncoding($infFile);    
        open(INF, "<:encoding($encoding)", "$infFile") || writelog(logdie,"Could not open $path\\$infFile"); 
        @Contents = <INF>;
        @match = grep(/DriverVer=/, @Contents);
        close INF;
    }
    my ($prefix, $VersionNumber) = split(',', $match[0]);
    $VersionNumber =~ s/[^\d+\.\d+\.\d+\.\d+]//g; 
    $VersionNumber =~ s/\x0d//g; 
    chomp $VersionNumber;
    writelog(debug,"pr_UpdateFileVersion $MyVersionID, $VersionNumber");
    ExecStoredProcedure("pr_UpdateFileVersion", "$MyVersionID,'$VersionNumber'");
    return $VersionNumber;
}