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

From: notofo:earthlink at: 27-Oct-2003 18:34

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

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