accessde 7zip kullanımı

1 2
09/03/2012, 18:45

accessman

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
************************
09/03/2012, 19:37

chopper07

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.
10/03/2012, 04:42

Kur@l

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
10/03/2012, 07:47

accessman

ç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
10/03/2012, 10:33

chopper07

Bilgisayarınızda 7z programı yüklü mü?
10/03/2012, 11:08

accessman

evet yüklü ama versiyonu falan önemli mi
1 2