امتدادا لموضوع اخي اكسير
فلقد كان عندي سؤال عن تغيير اسم المجلد الى تاريخ - من اجل المساعدة على عمل نسخ احتياطية لبرنامجك او بياناتك بشكل منتظم مع منع نسخ الجديد فوق القديم
فهذا هو الكود بين ايديكم
Dim fso
Const OverWriteFiles = True
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "اسم وموقع المجلد المصدر", "اسم وموقع المجلد الهدف الذي سيتم نقل المجلد المصدر اليه مع تغيير اسمه" & Format$(Date, "yyyy") & "-" & Format$(Date, "mm") & "-" & Format$(Date, "dd")لا تنسى تحديد اسم المجلد الهدف مع تحديد اسم المجلد المصدر ايضا وهذا مثال على جهازي
fso.CopyFolder "c:\data", "c:\DataBakp\" & Format$(Date, "yyyy") & "-" & Format$(Date, "mm") & "-" & Format$(Date, "dd")
وبذلك يصبح الموضوع السابق (تمت الاجابة)
وكل عام وانتم بخير