使用 vb.net 压缩文件时出现问题

Question

我有像“Sample.bak”这样的文件，当我将其压缩为“Sample.zip”时，我丢失了zip文件内的文件扩展名，我的意思是当我打开压缩文件时，我发现“Sample”没有任何扩展名。

我使用此代码：

 Dim name As String = Path.GetFileName(filePath).Replace(".Bak", "")
 Dim source() As Byte = System.IO.File.ReadAllBytes(filePath)
 Dim compressed() As Byte = ConvertToByteArray(source)
 System.IO.File.WriteAllBytes(destination & name & ".Bak" & ".zip", compressed)

或使用此代码：

Public Sub cmdCompressFile(ByVal FileName As String)

    'Stream object that reads file contents
    Dim streamObj As Stream = New StreamReader(FileName).BaseStream

    'Allocate space in buffer according to the length of the file read
    Dim buffer(streamObj.Length) As Byte

    'Fill buffer
    streamObj.Read(buffer, 0, buffer.Length)
    streamObj.Close()

    'File Stream object used to change the extension of a file
    Dim compFile As System.IO.FileStream = File.Create(Path.ChangeExtension(FileName, "zip"))

    'GZip object that compress the file
    Dim zipStreamObj As New GZipStream(compFile, CompressionMode.Compress)

    'Write to the Stream object from the buffer
    zipStreamObj.Write(buffer, 0, buffer.Length)
    zipStreamObj.Close()

End Sub

请我需要压缩文件而不丢失压缩文件内的文件扩展名。

谢谢，

Answer 1

GZipStream 压缩字节流，仅此而已。它不会在流中嵌入文件信息，因此您需要将其嵌入某处。

恢复文件名的最简单方法是将其命名为原始名称，例如 Sample.bak.zip。

如果这不起作用，您可以使用 SharpZipLib (示例）它为您嵌入文件信息。

如果您不想采用任何一种方法，您可以创建自己的文件格式并嵌入文件信息，或者您可以尝试实现 标准 gzip 格式