Script Library: 1238 scripts


REBOL [ Title: "Recursive Read" Date: 23-Sep-2002 Name: 'Recursive-Read Version: 1.1.0 File: %recursive-read.r Author: "Andrew Martin" Purpose: "Recursively read Directory." eMail: %Al--Bri--xtra--co--nz Web: library: [ level: 'intermediate platform: none type: 'tool domain: none tested-under: none support: none license: none see-also: none ] ] 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 ] ]
halt ;; to terminate script if DO'ne from webpage
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (Al:Bri:xtra:co:nz)