Search Forum Home   Visual FoxPro  Clase - VCX si PRG  Metoda de back-...  Metoda de back-up tabele...    8/2/2009 1:57:35 PM valy.m 221 posts Metoda de back-up tabele...  (N/A) Am citit pe posturile de pe acest site de nevoia de a face back-up la tabele utilizate. Am intrat pe un link dat de unul dintre colegi si am citit despre aceast metoda pe care o voi posta aici si care sper sa fie de ajutor. Veti avea nevoie de un fisier pe care il puteti descarca de aici . Acest fisier .fll (din arhiva pe care o descarcati) il puneti in folderul programului. Intr-un .prg (pentru incepatori  ~  folositi comanda MODIFY COMMAND <numele_prg-ului>) puneti urmatorul cod: SET LIBRARY TO LOCFILE("vfpcompression.fll") SET DEFAULT TO "D:\MyFolder" wdatetime=ttoc(DATETIME()) wdate=CHRTRAN(wdatetime,',:/.','') wden="Backup "+wdate+".zip" ZipCallback("MyCallback()") && Start Event Handling - Any Function/Procedure/Method (in scope of course) ?ZipOpen(wden, "D:\MyFolder", .t.) && creaza arhiva zip cu denumirea <Backup data timp.zip> in folderul MyFolder de pe partita D. (Recomand backup-ul fisierelor in orice alta partitie diferita de cea de sistem.) ?ZipFile("D:\FolderulProgramului\Fisierul1.dbf", .t. ,"parolamea") && executa compresia primului fisier in arhiva zip ?ZipFile("D:\FolderulProgramului\Fisierul2.dbf", .t. ,"parolamea") && executa compresia celui de-al 2-lea fisier in arhiva zip, etc. ?ZipClose() && se inchide procesul de arhivare ZipCallback("") && Stop Event Handling SET LIBRARY TO ***************************** FUNCTION MyCallback() *****************************     *!* Variables below are created on the fly     *!* by the FLL when the ZipCallback feature is used         *!* Depends on the value of nZipEvent     ?cZipObjectName && Name of Zip, File, or Folder being processed         *!* Events that fire MyCallback     *!* 0 = Open Zip     *!* 1 = Start Zip/Unzip of File     *!* 2 = Read/Write File (nZipBytes will contain value of bytes read for event)     *!* 3 - End Zip/Unzip of File     *!* 4 - Folder Opened     *!* 5 - Close Zip     ?nZipEvent         *!* Number of Bytes read (Event 3)     ?nZipBytes ENDFUNC in mainul programului inainte de a rula formul principal scrieti DO <numele prg-ului pentru backup> Codul impreuna cu fisierul .fll este preluat de pe un alt site (gasiti link-ul mai jos, pentru documentatie), este free iar eu nu am facut altceva de cat sa il particularizez, adica sa imi ataseze in denumirea back-up-ului data si ora cand s-a executat back-up-ul. Pentru sintaxa dezvoltata a acestui mic arhivator folositi acest link. Valy Maties - Beginner programmer  8/2/2009 2:23:27 PM Doru Constantin 304 posts Re: Metoda de back-up tabele...  (N/A) S-a mai discutat aici: http://www.profox.ro/Forum/tabid/55/forumid/28/threadid/11377/scope/posts/Default.aspx  8/3/2009 9:37:15 AM valy.m 221 posts Re: Metoda de back-up tabele...  (United Kingdom) Uite ca n-am dat peste articolul asta.... Si stii de ce? pentru ca majoritatea care cauta o modalitate de back-up a fisierelor scrie in search "Backup" nu Zip sau commpresion. Valy Maties - Beginner programmer  Page 1 of 1   Visual FoxPro  Clase - VCX si PRG  Metoda de back-... Flat View Tree View Oldest To Newest Newest To Oldest