[REBOL] check me? deleting files based on a pattern

[Tom Foster]

hi guys,

is this script "safe?"  it was taking forever, but then there are alot 
of files...  I killed the process.  is there a better way to do this?

REBOL [
    Title: "removealot"
    Date: 27-Oct-2003
    File: %removealot.r
    RCS-Id: "$Id$"
]

;trace on

home: to-file rejoin ["~" "/"]

base: to-file rejoin [home "attempt-it/"]

foreach file read base [
    if found? (find file "editpost") [
        delete base/:file
    ]
]

--
Elevating Cluelessness to an Art Form

-tom

-- 
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.