[REBOL] Re: Recursive-Read question

From: al:bri:xtra at: 6-Nov-2002 7:36

Perhaps you could describe a desired end point given a starting point? That
way people would know what you're trying to do.

Here's my latest version:
Rebol [
    Name: 'Recursive-Read
    Title: "Recursive Read"
    File: %"Recursive Read.r"
    Author: "Andrew Martin"
    eMail: [Al--Bri--xtra--co--nz]
    Web: http://valley.150m.com
    Date: 23/September/2002
    Version: 1.1.0
    Purpose: {Recursively read Directory.}
    Category: [util 3]
    ]

Recursive-Read: function [
    "Recursively read Directory."
    Directory [file! url!]    "The Directory to read."
    ] [Files Subdirectory] [
    if exists? Directory [
        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/

1 · 2 · [3] · 4 · 5 · 6 · 7 · See whole thread