bousaid

WINDEV Save BDD

Jul 9th, 2021 (edited)
50
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. Datesauv is string
  9. Datesauv = DateToString(Today,"dd_mm_yyyy")
  10. // Close BDD
  11. HClose("*")
  12.  
  13. fCopyFile(fDataDir()+"\*.fic",sRes+"\MyProject_BDD\"+"DATA_" +Datesauv)
  14. fCopyFile(fDataDir()+"\*.ndx",sRes+"\MyProject_BDD\"+"DATA_" +Datesauv)
  15. fCopyFile(fDataDir()+"\*.mmo",sRes+"\MyProject_BDD\"+"DATA_" +Datesauv)
  16.  
  17. // Inform the user
  18. ToastDeleteAll()
  19. ToastDisplay("تم حفظ قاعدة البيانات بنجاح",toastLong,vaMiddle,haCenter,iDarkGreen)
  20. // Open BDD
  21. HOpen("*","password") // OR HOpen("*")
  22. ELSE
  23. // No directory was selected by the user
  24. ToastDeleteAll()
  25. ToastDisplay("تم إلغاء العملية",toastShort,vaMiddle,haCenter,iDarkGreen)
  26. END
RAW Paste Data