WINDEV Restore 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
	SWITCH Dialog("حذاري ... هذه العملية تؤدي إلى فقدان البيانات الأصلية !")
		// Fermer
		CASE 1
			HClose("*")
			fCopyFile(sRes+"\*.fic" ,fDataDir())
			fCopyFile(sRes+"\*.ndx" ,fDataDir())
			fCopyFile(sRes+"\*.mmo" ,fDataDir())
			HOpen("*","psw")
			Use(FEN_Home)
		CASE 2
			// No directory was selected by the user
			ToastDeleteAll()
			ToastDisplay("تم الإلغاء",toastShort,vaMiddle,haCenter,iDarkGreen)
		OTHER CASE

	END
ELSE
	// No directory was selected by the user
	ToastDeleteAll()
	ToastDisplay("تم إلغاء العملية",toastShort,vaMiddle,haCenter,iDarkGreen)
END