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