sRes is string = "" // Name of the selected directory

// Using the Windows directory picker
sRes = fSelectDir("", "مجلد حفظ قاعدة البيانات", "اختر مجلد الحفظ")

// Was the selection of a directory validated the user
IF sRes <> "" THEN
Datesauv is string
Datesauv = DateToString(Today,"dd_mm_yyyy")
// Close BDD
HClose("*")

fCopyFile(fDataDir()+"\*.fic",sRes+"\MyProject_BDD\"+"DATA_" +Datesauv)
fCopyFile(fDataDir()+"\*.ndx",sRes+"\MyProject_BDD\"+"DATA_" +Datesauv)
fCopyFile(fDataDir()+"\*.mmo",sRes+"\MyProject_BDD\"+"DATA_" +Datesauv)

// Inform the user
ToastDeleteAll()
ToastDisplay("تم حفظ قاعدة البيانات بنجاح",toastLong,vaMiddle,haCenter,iDarkGreen)
// Open BDD
HOpen("*","password") // OR HOpen("*")
ELSE
// No directory was selected by the user
ToastDeleteAll()
ToastDisplay("تم إلغاء العملية",toastShort,vaMiddle,haCenter,iDarkGreen)
END