accessde 7zip kullanımı
Tarih
09/03/2012 18:45
Konu Sahibi
accessman
Yorumlar
6
Okunma
2332
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
iyi günler
bunu buldum ama
nasıl uyarlayacağım

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

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
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ış

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

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

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

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

@benbendedeilem
Cevapla


chopper07
Uzman
Kullanici Avatari
Uzman
E....
1.798
29/01/2008
365
Aydın
Ofis 2003
24/11/2016,13:02
Çözüldü 
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.
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

resim
resim
resim
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
Çözüldü 
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;

Visual Basic Code
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
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

Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
ç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
@benbendedeilem
Cevapla


chopper07
Uzman
Kullanici Avatari
Uzman
E....
1.798
29/01/2008
365
Aydın
Ofis 2003
24/11/2016,13:02
Çözüldü 
Bilgisayarınızda 7z programı yüklü mü?
™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

resim
resim
resim
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
evet yüklü ama versiyonu falan önemli mi
@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Access Aşırı CPU Kullanımı siyahca 17 299 Dün, 17:11 siyahca
  Accessde Ürün Reçetesi Oluşturma Mrv Tprk 17 636 02/07/2016, 14:00 atoz112
Brick Microsoft Access Yüklü Olmayan Bilgisayarlarda Access Kullanımı (Runtime) OFA 4 355 20/06/2016, 14:47 OFA
  iç içe if kullanımı Kardeşpayı 7 427 24/05/2016, 14:56 Kardeşpayı
  sorgu içinde koşul içeren ifade kullanımı uguruygar 4 289 20/05/2016, 00:09 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya