VB Methode zum Erstellen einer Zip-Datei für einen Ordner

Question

Ich bin sehr neu in der VB-Programmierung. Ich versuche, eine Zip-Datei mit Vb mit Unterordnern darin zu erstellen, dass einer der Unterordner nicht in der erstellten Zip-Datei enthalten sein muss.

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