+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Veri Tabanını Sıkıştırma istenilen klasöre kaydetme (/konu-veri-tabanini-sikistirma-istenilen-klasore-kaydetme.html)
Veri Tabanını Sıkıştırma istenilen klasöre kaydetme - Coskun0559 - 10/01/2011
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...
Cvp: Veri Tabanını Sıkıştırma istenilen klasöre kaydetme - Hayri16 - 10/01/2011
Coşkun Kardeşim. Çok teşekkürler , pratik ve yararlı bir iş çıkarmışsın.
Cvp: Veri Tabanını Sıkıştırma istenilen klasöre kaydetme - okileturc - 10/01/2011
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
Cvp: Veri Tabanını Sıkıştırma istenilen klasöre kaydetme - benremix - 10/01/2011
(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....
Cvp: Veri Tabanını Sıkıştırma istenilen klasöre kaydetme - Coskun0559 - 10/01/2011
(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.
Cvp: Veri Tabanını Sıkıştırma istenilen klasöre kaydetme - ozanakkaya - 11/01/2011
Eline sağlık Coşkun.