Search Forum Home   Visual FoxPro  Controale ActiveX  Progres Bar fox...  Progres Bar foxpro 6.0    3/2/2009 7:25:00 PM daflexx2003 90 posts Progres Bar foxpro 6.0  (Romania) Salut din nou, Ma chinui de 2 zile sa fac un Progres bar. Am de copiat zilnic 2 fisiere foarte mari de pe un server fisierele au circa 1 GB fiecare. In FoxPro 6.0 folosind sintaxa COPY FILE \\server\fisier.txt TO c:\fisier.txt nu stii daca lucreaza sau nu , se mai si blocheaza pe deasupra. Exista vreo metoda ca atunci cand incepe copierea sa imi arate un progress Bar cu procent ? (sa stiu si eu cat mai are de copiat) Va rog ajutati-ma. Multumesc.  3/2/2009 9:37:28 PM Grigore Dolghin 3592 posts www.class-software.eu Re: Progres Bar foxpro 6.0  (Romania) Chestia asta te ajuta? oShell = CREATEOBJECT("Shell.Application") oSrcFolder = oShell.NameSpace("c:\FolderSursa") oDstFolder = oShell.NameSpace("c:\FolderDestinatie") IF VARTYPE(oDstFolder)="O" AND VARTYPE(oSrcFolder.Items)="O"     oDstFolder.CopyHere(oSrcFolder.Items) ENDIF Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  3/3/2009 11:05:38 AM daflexx2003 90 posts Re: Progres Bar foxpro 6.0  (Romania) Este bine dar nu pot copia decat tot continutul folderului ? As vrea daca merge doar un anumit fisier , am vazut ca nu merge.  3/4/2009 3:33:36 PM Petre Popescu 253 posts Re: Progres Bar foxpro 6.0  (Romania) Incearca FLL-ul de la http://www.vfp2c.com/ Gasesti un exemplu in Files.prg.  3/5/2009 9:46:00 AM EmilSavu 68 posts Re: Progres Bar foxpro 6.0  (N/A) In exemplul dat de Grig, inlocuieste linia :  oDstFolder.CopyHere(oSrcFolder.Items) cu  oDstFolder.CopyHere('fiseierul pe care vreti sa-lcopiezi')  ( cu calea completa)  Page 1 of 1   Visual FoxPro  Controale ActiveX  Progres Bar fox... Flat View Tree View Oldest To Newest Newest To Oldest