+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: accessde 7zip kullanımı (/konu-accessde-7zip-kullanimi.html)
Sayfalar:
1
2
accessde 7zip kullanımı - accessman - 09/03/2012
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 Cvp: accessde 7zip kullanımı - chopper07 - 09/03/2012
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.
Cvp: accessde 7zip kullanımı - Kur@l - 10/03/2012
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")
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
Cvp: accessde 7zip kullanımı - accessman - 10/03/2012
ç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
Cvp: accessde 7zip kullanımı - chopper07 - 10/03/2012
Bilgisayarınızda 7z programı yüklü mü?
Cvp: accessde 7zip kullanımı - accessman - 10/03/2012
evet yüklü ama versiyonu falan önemli mi