[AMRMOGA]

السلام عليكم  يارب تكونو بصحه وعافيه

عندى مشكله بسيطه إن شاء الله



أريد كود لأنشاء فولد بتاريخ اليوم  مع نسخه من  قاعدة البيانات

كود إنشاء الفولدر

وهو يعمل بشكل صحيح

كود :

        FileSystem.MkDir("D:\" & Format(Now, ("dd-mm-yyyy")))

مع كود إنشاء نسخه إحتياطية

وهو أيضا يعمل بشكل صحيح

كود :

"Dim db As String = ".\\moga.mdb
File.Copy(db, "D:\moga.mdb")

File.Copy(db,[............]\"moga.mdb")

ولكنى أريد أن يقوم بوضع النسخه فى الملف الذى تم إنشائه تلقائى بدون أختيار مكانه 

وجزاكم الله خيرا

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته :

المسار الثاني اللي أنت عملته : خزنه في متغير .

كود :

Dim Path2 As String = "D:\" & Format(Now, ("dd-mm-yyyy"))

فيصبح عندك كود النسخ للمسار الجديد هو :

كود :

File.Copy(db, Path2 & "\moga.mdb")