bousaid

WINDEV Restore BDD

Jul 9th, 2021
43
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. sRes is string = "" // Name of the selected directory
  2.  
  3. // Using the Windows directory picker
  4. sRes = fSelectDir("","مجلد الاسترجاع","اختر المجلد الذي يحتوي على القاعدة")
  5.  
  6. // Was the selection of a directory validated the user
  7. IF sRes <> "" THEN
  8. SWITCH Dialog("حذاري ... هذه العملية تؤدي إلى فقدان البيانات الأصلية !")
  9. // Fermer
  10. CASE 1
  11. HClose("*")
  12. fCopyFile(sRes+"\*.fic" ,fDataDir())
  13. fCopyFile(sRes+"\*.ndx" ,fDataDir())
  14. fCopyFile(sRes+"\*.mmo" ,fDataDir())
  15. HOpen("*","psw")
  16. Use(FEN_Home)
  17. CASE 2
  18. // No directory was selected by the user
  19. ToastDeleteAll()
  20. ToastDisplay("تم الإلغاء",toastShort,vaMiddle,haCenter,iDarkGreen)
  21. OTHER CASE
  22.  
  23. END
  24. ELSE
  25. // No directory was selected by the user
  26. ToastDeleteAll()
  27. ToastDisplay("تم إلغاء العملية",toastShort,vaMiddle,haCenter,iDarkGreen)
  28. END
RAW Paste Data