قرار گرفتن تاریخ جاری سیستم به عنوان نام فایل در پشتیبان

[masoudcarpet]

دوستان عزیز لطفا راهنمائی کنید چطوری میتونم به جای کلمه BANK تاریخ تشکیل فایل رو در تهیه پشتیبان به عنوان اسم فایل پشتیبان بزنم

destination = File1.Path & "\" & "BANK.mdb"

[mosab_vb]

destination = File1.Path & "\" & date & ".mdb"

می تونی از فایل بانک کپی بکیری و با یه نام دیگه که همون تاریخ باشه ذخیره کنی.مثال زیر رو نگاه کن:

FileCopy (App.Path + "\bank.mdb"), App.Path + "\" + Date + ".mdb"

[mosab_vb]

d1 = Right(Str(Date), 2)
d2 = Mid$(Str(Date), 6, 2)
d3 = Mid$(Str(Date), 1, 4)
FileCopy (App.Path + "\bank.mdb"), App.Path + "\" + d3 + "." + d2 + "." + d1 + ".mdb"
یه مطلب مهم شما نمی تونید از "/"در اسم فایل استفاده کنید به خاطر همین بین اونها نقطه گذاشتم.

[masoudcarpet]

از شما متشکرم هر دو کد به درد خورد با این نتیجه گرفتم کوتاهترین راه بود


d1 = Right(Str(Date), 2)
d2 = Mid$(Str(Date), 6, 2)
d3 = Mid$(Str(Date), 1, 4)
destination = File1.Path & "\" & d3 + "." + d2 + "." + d1 & ".mdb"

[vbhamed]

سلام
اینم کوتاه :


destination = File1.Path & "\" & format$(now, "yyyy-mm-dd")