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