Module: ZipFile in Category General VBA/VB6 : Encryption and Compression from Total Visual SourceBook

' Example of modZipFile
'
' To use this example, create a new module and paste this code into it.
' Then run the procedure by putting the cursor in the procedure and pressing:
'    F5 to run it, or
'    F8 to step through it line-by-line (see the Debug menu for more options)

Private Sub Example_modZipFile()
  ' Comments: Example of using the modZipFile module to create, open, and extract compressed zip files

  Const cstrSamplePath As String = "C:\Total Visual SourceBook 2013\Samples\"
  Const cstrUnzipFolder As String = cstrSamplePath & "unzip\"

  Const cstrZipFile As String = cstrSamplePath & "Test.Zip"
  Const cstrFilesToZip As String = cstrSamplePath & "sample.txt;" & cstrSamplePath & "Test.txt"
  Const cstrFilesToAdd As String = cstrSamplePath & "sample.mdb"
  Const cstrMask As String = "*.txt"

  Dim astrFiles() As String
  Dim intFile As Integer
  Dim intFiles As Integer
  Dim intAdd As Integer

  ' Create a zip file with the specified files
  Debug.Print "Creating zip file..."
  intFiles = ZipFileCreate(cstrZipFile, cstrFilesToZip, ";")
  If intFiles > 0 Then
    Debug.Print "Zip file created: " & cstrZipFile & " with " & intFiles & " files"
  Else
    Debug.Print "Zip file could not be created."
  End If

  If intFiles > 0 Then
    ' Add file to the zip file that was created
    intAdd = ZipFileAdd(cstrZipFile, cstrFilesToAdd)
    If intAdd > 0 Then
      Debug.Print "File added to zip file."

      ' Open the zip file with Windows Explorer
      Shell "Explorer.exe " & cstrZipFile
    Else
      Debug.Print "File could not be added to zip file."
    End If
  End If

  ' Get the list of files in the zip file
  intFiles = ZippedFilesToArray(cstrZipFile, False, astrFiles)
  Debug.Print intFiles & " files in the zip file " & cstrZipFile & ":"
  For intFile = 0 To UBound(astrFiles())
    Debug.Print intFile + 1, astrFiles(intFile)
  Next intFile

  ' Show the list of files in the zip file
  Debug.Print "Delimited list of zipped files: " & ZippedFilesToString(cstrZipFile, False, ",")

  ' Unzip (extract) one file from the compressed file
  Debug.Print "Unzipping a single file from the zip file and overwriting it if already exists..."
  If UnzipOneFile(cstrZipFile, "Test.txt", True, cstrUnzipFolder) Then
    Debug.Print "One file from zip file unzipped to: " & cstrUnzipFolder
  Else
    Debug.Print "File could not be extracted from the zip file."
  End If

  ' Unzip (extract) files matching a mask from a compressed file
  Debug.Print "Unzipping files that match a mask from the zip file and overwriting existing files..."
  intFiles = UnzipFileMask(cstrZipFile, cstrMask, True, cstrUnzipFolder)
  Debug.Print intFiles & " files matching mask were extracted from the zip file to: " & cstrUnzipFolder

  ' Unzip/extract all the files from a compress file
  Debug.Print "Unzipping all files from the zip file and overwrite existing files..."
  If UnzipAllFilesOverwrite(cstrZipFile, cstrUnzipFolder) Then
    Debug.Print "All files were extracted from the zip file to: " & cstrUnzipFolder
  Else
    Debug.Print "Files could not be extracted from the zip file."
  End If

  If MsgBox("Do you want to see the user prompts to overwrite existing files?", vbQuestion) = vbYes Then
    Call UnzipAllFiles(cstrZipFile, cstrUnzipFolder)
  End If

  ' Open Windows Explorer to the folder where the files are extracted
  Shell "Explorer.exe " & cstrUnzipFolder

End Sub

The source code in Total Visual Sourcebook includes modules and classes for Microsoft Access, Visual Basic 6 (VB6), and Visual Basic for Applications (VBA) developers. Easily add this professionally written, tested, and documented royalty-free code into your applications to simplify your application development efforts.

Total Visual SourceBook is written for the needs of a developer using a source code library covering the many challenges you face. Countless developers over the years have told us they learned some or much of their development skills and tricks from our code. You can too!

Additional Resources

• List of All Modules in Total Visual SourceBook
• List of All Code Categories in Total Visual SourceBook
• Sample Module Code from Total Visual SourceBook (Example of Date, Time and Age Calculations)