[REBOL] Duplicate-Directory & Recursive Read functions

[Andrew Martin]

Here's a duplicate directory function to create duplicate file and folder
structures.

Duplicate-Directory: func [
    {Duplicates in Write_Directory the structure
        and files of Read_Directory.}
    Write_Directory [file!]    "The written over directory."
    Read_Directory [file!]     "The read from directory."
    ] [
    any [
        exists? Write_Directory
        md Write_Directory
        ]
    foreach File recursive-read Read_Directory [
        either #"/" = last File [
            any [
                exists? Write_Directory/:File
                md Write_Directory/:File
                ]
            ] [
            write/binary Write_Directory/:File
                read/binary Read_Directory/:File
            ]
        ]
    ]

and a recursive read function as well.

Recursive-Read: function [
    "Recursively read directory."
    Directory [file! url!]] [Files Subdirectory] [
    Files: read Directory
    if block? Files [
        foreach File Files [
            if #"/" = last File [
                Subdirectory: File
                foreach File read Directory/:Subdirectory [
                    append Files Subdirectory/:File
                    ]
                ]
            ]
        ]
    Files
    ]

Andrew Martin
ICQ: 26227169 http://valley.150m.com/
-><-


-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.