VB方法为文件夹创建一个zip文件

Question

我是VB编程新手。我试图使用vb创建一个zip文件，其中有子文件夹，其中一个子文件夹不需要包含在创建的zip文件中。

Answer 1

 Private Function Compress(ByVal fileToCompress As FileInfo) As Boolean
    Dim _Compress As Boolean
    Using originalFileStream As FileStream = fileToCompress.OpenRead()
        If (File.GetAttributes(fileToCompress.FullName) And FileAttributes.Hidden) <> FileAttributes.Hidden And fileToCompress.Extension <> ".gz" Then
            Using compressedFileStream As FileStream = File.Create(fileToCompress.FullName + ".gz")
                Using compressionStream As GZipStream = New GZipStream(compressedFileStream, CompressionMode.Compress)
                    originalFileStream.CopyTo(compressionStream)
                    Console.WriteLine("Compressed {0} from {1} to {2} bytes.",
                                      fileToCompress.Name, fileToCompress.Length.ToString(), compressedFileStream.Length.ToString())
                End Using
            End Using
        End If
    End Using
    _Compress = File.Exists(fileToCompress.FullName + ".gz")

    Return _Compress
End Function