[REBOL] Re: check me? deleting files based on a pattern
From: rebol-list2:seznam:cz at: 31-Oct-2003 11:09
Tuesday, October 28, 2003, 3:02:40 PM, you wrote:
TF> Anton Rolls wrote:
>>Looks pretty safe to me.
>>You are just in one directory.
>>This will delete all files with "editpost"
>>in the name somewhere.
>>I would catch errors while deleting the file
>>so you are not interrupted by a single
>>"file access error" because one file is in use.
>> foreach file read base [
>> if find file "editpost" [
>> if error? set/any 'err try [delete base/:file][
>> print mold disarm err
>>You can, by the way, say this:
>> home: %~/
>> base: join home %attempt-it/
>>How many files?
TF> Thanks Anton,
TF> 7500 files.
TF> the task is finished, I "risked it." I'll use your suggestions. I
TF> especially like the error checking.
TF> I've been a reboler for years and I'm still *very* clueless.
TF> you brushed up against a question I've had for a while. How can I
TF> elimintate most of the "rejoins" that I use?
TF> I rejoin everything. If all you have is a hammer...
TF> thanks again,
If there is too many files you may try to open the directory as a
port without buffering:
files: open/direct base
while [not tail? files][
file: first files
if find file "editpost" [
if error? set/any 'err try [delete base/:file][
print mold disarm err
files: next files
rebOldes -----------------[ http://oldes.multimedia.cz/ ]