VB Метод создания zip-файла для папки

Question

Я очень новичок в программировании на VB. Я пытаюсь создать zip-файл, используя vb с подпапками в нем, что одна из подпапок не обязательно должна быть включена в созданный 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