Le 25/08/2014 22:28, Julio Sanchez a écrit : > Hi, could you add a new order within gambas3 to copy directories > recursively. > > Something like this: > > PUBLIC <http://gambaswiki.org/wiki/lang/public> SUB > <http://gambaswiki.org/wiki/lang/sub> copia_dir(path_origen AS > <http://gambaswiki.org/wiki/lang/as> String > <http://gambaswiki.org/wiki/lang/type/string>, path_destino AS > <http://gambaswiki.org/wiki/lang/as> String > <http://gambaswiki.org/wiki/lang/type/string>, OPTIONAL > <http://gambaswiki.org/wiki/lang/optional> tipo as > <http://gambaswiki.org/wiki/lang/as> String > <http://gambaswiki.org/wiki/lang/type/string>) > > DIM <http://gambaswiki.org/wiki/lang/dim> arDir AS > <http://gambaswiki.org/wiki/lang/as> string > <http://gambaswiki.org/wiki/lang/type/string>[] > DIM <http://gambaswiki.org/wiki/lang/dim> arFile AS > <http://gambaswiki.org/wiki/lang/as> string > <http://gambaswiki.org/wiki/lang/type/string>[] > DIM <http://gambaswiki.org/wiki/lang/dim> nombredir, nombrefile AS > <http://gambaswiki.org/wiki/lang/as> String > <http://gambaswiki.org/wiki/lang/type/string> > > IF <http://gambaswiki.org/wiki/lang/if> NOT > <http://gambaswiki.org/wiki/lang/not> tipo then > <http://gambaswiki.org/wiki/lang/then> tipo="*" > IF <http://gambaswiki.org/wiki/lang/if> NOT > <http://gambaswiki.org/wiki/lang/not> Exist > <http://gambaswiki.org/wiki/lang/exist>(path_destino) THEN > <http://gambaswiki.org/wiki/lang/then> > MKDIR <http://gambaswiki.org/wiki/lang/mkdir> path_destino > ENDIF <http://gambaswiki.org/wiki/lang/endif> > arfile = Dir <http://gambaswiki.org/wiki/lang/dir>(path_origen, tipo, gb. > file <http://gambaswiki.org/wiki/lang/type/file>) 'extraemos los ficheros > FOR <http://gambaswiki.org/wiki/lang/for> EACH > <http://gambaswiki.org/wiki/lang/each> nombrefile IN > <http://gambaswiki.org/wiki/lang/in> arfile 'los copiamos > COPY <http://gambaswiki.org/wiki/lang/copy> path_origen &/ > nombrefile TO <http://gambaswiki.org/wiki/lang/to> path_destino &/ > nombrefile > NEXT <http://gambaswiki.org/wiki/lang/next> > ardir = Dir <http://gambaswiki.org/wiki/lang/dir>(path_origen, "*", gb. > Directory) > FOR <http://gambaswiki.org/wiki/lang/for> EACH > <http://gambaswiki.org/wiki/lang/each> nombredir IN > <http://gambaswiki.org/wiki/lang/in> arDir 'extraemos los subdirectorios > copia_dir(path_origen &/ nombredir, path_destino &/ nombredir) > 'usamos > la recursividad > NEXT <http://gambaswiki.org/wiki/lang/next> > END <http://gambaswiki.org/wiki/lang/end> > > > Regards
Your mail is not very readable... But anyway, what for? Why don't you call the "cp" command with SHELL or EXEC? -- Benoît Minisini ------------------------------------------------------------------------------ Slashdot TV. Video for Nerds. Stuff that matters. http://tv.slashdot.org/ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user
