WINDEV Save BDD

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