Skip to main content

AccessTr.neT


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

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

#1
Daha önce sitede verilmiş olabilir ama ben yinede paylaşayım Halay
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ı Sopa
Herkese kolay gelsin..
.
.rar zip_coskun.rar (Dosya Boyutu: 69,54 KB | İndirme Sayısı: 77)
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
#2
Coşkun Kardeşim. Çok teşekkürler , pratik ve yararlı bir iş çıkarmışsın.
+rep+rep+rep
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#3
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
.rar zip.rar (Dosya Boyutu: 44,31 KB | İndirme Sayısı: 30)
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
(10/01/2011, 17:49)Hayri16 yazdı: Coşkun Kardeşim. Çok teşekkürler , pratik ve yararlı bir iş çıkarmışsın.
+rep+rep+rep

Saygılar....

Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#5
(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.
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla
#6
Eline sağlık Coşkun.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da