[abdulla2]

عندي قاعدة بيانات في الديباج اريد عند الصغط على زر 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

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

[boudyonline]

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

كود :

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

[احمداحمداحمد6]

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

[سعود]

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


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

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