[Gambas-user] Add new command to: Copy directories recursively

[Julio Sanchez]

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