Zip ile 565 Kb olan Sıkıştırma 7z ile 255 Kb oluyor.
Aşağıdaki fonksiyonu bir modül içine kaydedin.
Menfi müspet dönüş yapınız.
Şu şekilde kullanın;

call press("c:\kural.txt", "c:\kural")

bu kullanım neticesinde c: sürücüsü içine kural.7z dosyasına kural.txt dosyasını sıkıştırmış olduğunu göreceksiniz.

Option Compare Database

' AccessTR.Net için Kur@l Tarafından hazırlanmıştır.

Public Function press(kaynak As String, hedef As String)

Dim krl

hedef = hedef & ".7z" ' hedef dosya adını yol ve dosyaya vereceğiniz isim şeklinde yazın C:\kural gibi böylece c: sürücüsünde kural7.z dosyasına sıkıştıracaktır.

krl = "C:\Program Files\7-Zip\7z.exe"  'sizdeki yeri nereyse onu yazın

Shell (krl & " a -t7z " & hedef & " -r " & kaynak & " -m0=BCJ -m1=LZMA:d=21 -ms -mmt"), vbHide

MsgBox kaynak & " Dosyası " & hedef & " Dosyası Adı İle Arşivlenmiştir."

End Function