Create Zips of apps with data and config

(* Special directory syntax:
   bin\Program
   bin\Application
   ...
   bin\Config
let deployDir = "bin\deploy\"

let createZip is64bit (dirInfo: DirectoryInfo) = 
  let dirName = dirInfo.Name
  if not (System.String.Equals(dirName, "config", System.StringComparison.CurrentCultureIgnoreCase)) then
    let dirPath = dirInfo.FullName
    // Configuration files
    let cfgName = dirPath @@ ".." @@ "Config" @@ (dirName + ".cfg")
    // Error description
    let errName = dirPath @@ ".." @@ "Config" @@ (dirName + "Error.cfg")
    // Extra data files

    let dataMap = dict["Program", [dirPath @@ ".." @@ "data/Reboot.ini"]]
    let dataFiles = if Seq.contains dirName dataMap.Keys then dataMap.Item(dirName) else List.empty
    let zipName = deployDir @@ (dirName + (if is64bit then "64" else "") + ".zip")

    let appFiles = 
      !! ( dirPath @@ "/**/*")
        ++ clgName
        ++ errName
    (Seq.toList appFiles) @ dataFiles
      |> Zip (dirPath @@ "..") zipName