Call 7-Zip from a FAKE F# script

Zip7.fsx

let private encodeParameterArgument original =
    if String.IsNullOrEmpty(original) then
        original
    else
        let temp = Regex.Replace(original, @"(\\*)" + "\"", @"$1\$0");
        Regex.Replace(temp, @"^(.*\s.*?)(\\*)$", "\"$1$2$2\"");
 
let private encodeParameterArguments (arguments:seq<string>) =
    String.Join(" ", arguments |> Seq.map encodeParameterArgument)
 
let private Zip7 (workingDir:string) (fileName:string) (files:seq<string>) =
    let fullWorkingDir = Path.GetFullPath workingDir + "\\"
    let correctFileName =
        files
            |> Seq.map (fun s ->
                tracefn "%s -> %s" s fullWorkingDir
                if s.StartsWith(fullWorkingDir, StringComparison.OrdinalIgnoreCase) then
                    s.Substring(fullWorkingDir.Length)
                else
                    s
            )
            |> Seq.distinct
            |> encodeParameterArguments
 
    let arguments = sprintf "a -tzip -mmt8 %s %s" (encodeParameterArgument fileName) correctFileName
    tracefn "%s" arguments
    executeInDir "C:\Program Files\7-Zip\7z.exe" arguments fullWorkingDir true