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 ------------------------------------------------------------------------------ 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