AccessTr.neTMicrosoft AccessAccess Örnekleri ve Uygulamaları

Veri Tabanını Sıkıştırma istenilen klasöre kaydetme

10/01/2011, 17:42

Coskun0559

Daha önce sitede verilmiş olabilir ama ben yinede paylaşayım Arkadaşlar ekteki örnek öncelikle *.mdb dosyalarında olmakla birlikte tüm dosyaları rar veya zip dosyası içerisine atıyor.
ister dosyayı sıkıştırıp atın isterseniz sıkıştırmadan direk kopyalayın.

Klasörün içerisindeki "zlib.dll" dosyasını C:\WINDOWS\system32 klasörüne kopyalayınız.

Son olarak deneyen arkadaşlar hem yorumlarını hemde çalışıp çalışmadığını paylaşırlarsa sevinirim isterseniz paylaşmayın yorumlarınızı Herkese kolay gelsin...
10/01/2011, 17:49

Hayri16

Coşkun Kardeşim. Çok teşekkürler , pratik ve yararlı bir iş çıkarmışsın.
10/01/2011, 19:26

okileturc

Hocam çok güzel çalışıyor ! Ben de bunu tools
olarak kullanacağım. Kodun büzünlüğünü bozmadan
bir satır ilave ettim



ToZipFiles = Left(MyShortFiles, InStr(1, MyShortFiles, ".", vbTextCompare))

ToZipFiles = Left(ToZipFiles, Len(ToZipFiles) - 1) & "_" & Mid(Now(), 1, 2) & Mid(Now(), 4, 2) & Mid(Now(), 7, 4) & Mid(Now(), 12, 2) & Mid(Now(), 15, 2) & Mid(Now(), 18, 2) & "."

( 2. ToZipFiles tanımı ile "_" Now() ilave ettim )

Böylece dosya adını "Dosya_10012011182412.Zip" olarak düzenledim
Eline sağlık, paylaşım için teşekkürler

______________________

Dosya adına " _now" ekleyen versiyon ektedir
10/01/2011, 20:09

benremix

(10/01/2011, 17:49)Hayri16 yazdı: Coşkun Kardeşim. Çok teşekkürler , pratik ve yararlı bir iş çıkarmışsın.
Saygılar....

10/01/2011, 20:17

Coskun0559

(10/01/2011, 19:26)okileturc yazdı: Hocam çok güzel çalışıyor ! Ben de bunu tools
olarak kullanacağım. Kodun büzünlüğünü bozmadan
bir satır ilave ettim



ToZipFiles = Left(MyShortFiles, InStr(1, MyShortFiles, ".", vbTextCompare))

ToZipFiles = Left(ToZipFiles, Len(ToZipFiles) - 1) & "_" & Mid(Now(), 1, 2) & Mid(Now(), 4, 2) & Mid(Now(), 7, 4) & Mid(Now(), 12, 2) & Mid(Now(), 15, 2) & Mid(Now(), 18, 2) & "."

( 2. ToZipFiles tanımı ile "_" Now() ilave ettim )

Böylece dosya adını "Dosya_10012011182412.Zip" olarak düzenledim
Eline sağlık, paylaşım için teşekkürler

______________________

Dosya adına " _now" ekleyen versiyon ektedir

oktay hocamın metoduyla daha da zenginleşmiş oldu
sağol hocam.
11/01/2011, 09:00

ozanakkaya

Eline sağlık Coşkun.