使用 camlzip 建立包含多個檔案的 ZIP 壓縮檔

任務

壓縮 / 建立包含多個檔案的 ZIP 壓縮檔

使用的 Opam 套件

• camlzip 使用版本測試：1.11 — 使用的函式庫：camlzip

程式碼

(* The [Zip](/p/camlzip/latest/doc/Zip/index.html) module doesn't provide a function that works on a directory. Thus, we write a helper-function to traverse the file-system. Here the given function `f` is called for each regular file with its name as a parameter. *) let rec traverse_fs f directory = if Sys.is_directory directory then Sys.readdir directory |> Array.iter (fun entry -> traverse_fs f (directory ^ "/" ^ entry)) else f directory (* First, we open the ZIP file for writing. *) let zip zip_filename directory_name = let zip_file = Zip.open_out zip_filename in (* Then, we use `Zip.copy_file_to_entry` to add every file in the directory to the ZIP file. *) traverse_fs (fun name -> Zip.copy_file_to_entry name zip_file name) directory_name; (* To finalize the archive, we close the ZIP file. *) Zip.close_out zip_file

let rec traverse_fs f directory =
  if Sys.is_directory directory then
    Sys.readdir directory
    |> Array.iter
         (fun entry ->
            traverse_fs
              f (directory ^ "/" ^ entry))
  else
    f directory

let zip zip_filename directory_name =
  let zip_file = Zip.open_out zip_filename in

  traverse_fs
    (fun name ->
      Zip.copy_file_to_entry name zip_file name)
    directory_name;

  Zip.close_out zip_file

食譜無法運作？註解不清楚或已過時？