AccessTr.neT

iyi günler
bunu buldum ama
nasıl uyarlayacağım

****************

Function Zip_Archive_File_7Zip()



Dim s7Zip, sZipFile, sFileToZip As String



sZipFile = "C:\TMA_Production_SQL\Outputs\TMA_Draft_Documents \xyz.zip"

sFileToZip = "C:\TMA_Production_SQL\Outputs\TMA_Draft_Documents \abc.doc"



s7Zip = "C:\Program Files\7-Zip\Command_Line\7za.exe" 'Location of the WinZip program



ShellWait s7Zip & " a -tzip """ & sZipFile & """ """ & sFileToZip & """, vbhide"



End Function

*********************************

---

biriside ona şu cevabı yazmış

*****************

s7Zip = "C:\Program Files\7-Zip\Command_Line\7z.exe" 'or location of 7z.exe



Shell (s7Zip & " a -tzip " & sZipFile & " " & sFileToZip), vbhide 

************************

ilk yazdığınız kodda
szipfile = dediği yerde xyz.zip isimli bir .zip uzantılı dosya oluşturtuyor ve içine sFileToZip = kodunda belirlenen abc.doc isimli dosyayı zipliyor. zipleme için de
s7Zip = kodunda yazan zip programının yolunu veriyor.

cevabı yazanda s7Zip = bölümüne zip programının değil 7z.exe programının yolunu vererek dene demiş. tabi oradaki eksiklik, 7z ile sıkıştırırken kendi uzantısını verdirmemişler yani, szipfile= komutunda zip yerine 7z uzantılı bir dosya oluşturtmak daha iyi olur. Aksi halde 7z prograını kullanmanın bir anlamı olmaz, zip programıyla devam edebilir.

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

çok teşekkürler
şu satırda hata veriyor

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

hedef dosya bulunamadı diyor

Bilgisayarınızda 7z programı yüklü mü?

evet yüklü ama versiyonu falan önemli mi