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