AccessTr.neT

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...

Coşkun Kardeşim. Çok teşekkürler , pratik ve yararlı bir iş çıkarmışsın.

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, 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, 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.

Eline sağlık Coşkun.