منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - إنشاء فولد ووضع نسخه به من قاعدة البيانات

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

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

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

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

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

كود :

        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")

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

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

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

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

كود :

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

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

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب