vb6 helper for FAKE

VBHelper.fs

let vb6exe =
    ProgramFilesX86 @@ "Microsoft Visual Studio\\VB98" @@ "VB6.exe"

let VB6Build outputPath projects = 
    
    let build outputPath project =
        traceStartTask "VB6Build" project
        let args = sprintf "/make %s /outdir %s" project outputPath         

        tracefn "Building project: %s\n  %s %s" project vb6exe args
        if not (execProcess3 (fun info ->  
            info.FileName <- vb6exe
            info.Arguments <- args) TimeSpan.MaxValue)
        then failwithf "Building %s project failed." project
        traceEndTask "VB6Build" project

    projects 
        |> List.iter (fun project -> build outputPath project)