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

Benoît Minisini gambas at ...1...
Mon Aug 25 22:40:51 CEST 2014


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




More information about the User mailing list