FSharp 中 zip 存档的控制文件结构

Question

以下是一个代码示例，它获取文件名列表并将它们压缩到单个存档中。我遇到的问题是，我希望 filname 描述的文件位于 zip 存档的顶层（即打开存档时，“clientName....xml”是您看到的第一个内容，而不是文件夹“XML”）。

    let filename = sprintf "C:\\XML\\ClientName_%s.xml" (System.DateTime.Now.ToString("ddMMyyyy"))      
    use fs = new FileStream(filename, FileMode.Create) 
    let xmlSerializer = XmlSerializer(typeof<log>)
    xmlSerializer.Serialize(fs,logObj)
    fs.Close()
    use zipfile = new ZipFile()
    let basePath = path.Replace("/", "\\")

    for fileObj in files do
        let relativeFilePath = basePath  + (fileObj.Filename).Replace("/", "\\")
        printfn "%s" relativeFilePath
        zipfile.AddFile(relativeFilePath) |> ignore
        ()

    zipfile.AddFile(filename) |> ignore
    let zipFileName = sprintf "C:\\XML\\Compliance_%s.zip" (System.DateTime.Now.ToString("ddMMyyyy"))
    zipfile.Save(zipFileName)

Answer 1

ZipFile 类型从何而来？我不认为这是一个标准的 .NET 类...我尝试搜索并找到了这个库 http://dotnetzip。 codeplex.com/ 具有与您的示例匹配的类:-)

提到的库还具有 AddFile 重载，它需要两个字符串 - 源文件名和 ZIP 中的相对文件名文件。这看起来正是您正在寻找的东西。我猜调用会类似于 zipfile.AddFile(absolutePath, "/") ...