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