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

عندي قاعدة بيانات في الديباج اريد عند الصغط على زر backup يفتح لي ديالوج فقط مرة واحدة احدد فيها مكان حفظ الملف
وليكن مثلا بقرص d داخل مجلد اسمة ِAll-Files يعني المسار التالي D:\ All-Files
(ملاحظة الديالوج تفتح مرة واحدة فقط) وبعدها يتم الحفظ بمجرد عمل كوبي في المكان المجدد اول مرة ويكون حفظ الملف داخل مجلد بالتاريخ والوقت
حتى يتم حفظ اكثر من نسخة للملف يعني يكون المجلد مثل هذة الصيغة وبداخلة قاعدة البيانات (DB_M)
D:\All-Files\25\12\2015_10:45\DB_M.accdb
D:\All-Files\25\12\2015_12:12\DB_M.accdb
D:\All-Files\16\11\2015_6:45\DB_M.accdb

وعند الإستعادة يفتح ديالوج تحدد القاعدة بالتاريخ والوقت المطلوب وعند النقر عليها يستعيد مباشرة ..

اخي الفاضل :
هذا مثال بسيط ولكن بطريقة مختلفة ... حيث يتم تسجيل تاريخ ووقت الملف كجزء من اسمه وليس كمجلد جديد
ولكن قد تعجبك الفكرة

كود :

Try

'System.IO.File.Copy("enrollment.mdb", String.Format("D:\{0:yyyyMMdd}.mdb", Date.Today))

Using openDialog As New OpenFileDialog()

openDialog.CheckFileExists = True

openDialog.CheckPathExists = True

openDialog.Filter = "Microsoft Access Database (*.mdb)|*.mdb"

Using saveDialog As New SaveFileDialog()

saveDialog.CheckFileExists = False

saveDialog.CheckPathExists = True

saveDialog.FileName = Date.Now.ToString("yyyyMMdd") & ".mdb"

saveDialog.Filter = "Microsoft Access Database (*.mdb)|*.mdb"

If openDialog.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso saveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then

If File.Exists(openDialog.FileName) Then File.Copy(openDialog.SafeFileName, saveDialog.FileName)

End If

End Using

End Using

Catch ex As Exception

MsgBox(ex.Message)

End Try

اضف كائن dialog
من خلاله تستطيع الخزن...

وهذي طريقة قد تجد ماتريد بها

الملفات المرفقة

.zip OptionalThings.zip (الحجم : 56.7 ك ب / التحميلات : 103)

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

abdulla2

boudyonline

احمداحمداحمد6

سعود