اول مطمئن شید که کتابخانه System.IO.Compression به پروژه خود اضافه شده باشه تا بتونید ازاون برای فشرده‌سازی و از حالت فشرده خارج کردن فایل‌ها استفاده کنید.
آدرس پوشه مبدا و پوشه بکاپ را مشخص کنید. سپس با استفاده از ZipFile.CreateFromDirectory، یک فایل فشرده حاوی فایل‌های پوشه مبدا ایجاد می‌شه. اگر نیاز به استخراج فایل‌ها از فایل فشرده داشتید، می‌توانید از ZipFile.ExtractToDirectory استفاده کنید.

Imports System.IO
Imports System.IO.Compression


Dim backupFolder As String = "Path\To\Backup\Folder"
Dim sourceFolder As String = "Path\To\Source\Folder"
Dim zipFilePath As String = Path.Combine(backupFolder, "backup.zip")


' ایجاد فایل فشرده
ZipFile.CreateFromDirectory(sourceFolder, zipFilePath)


' برای استخراج فایل‌ها از فایل فشرده:
' ZipFile.ExtractToDirectory(zipFilePath, destinationFolder)