DELETE target /any
Deletes the specified file(s).
DELETE is a function value.
- target -- the file to delete (Type: file url)
- /any -- allow wild cards
delete: func [ "Deletes the specified file(s)." [catch] target [file! url!] "the file to delete" /any "allow wild cards" /local p dir blk file ret err ][ dir: throw-on-error [open first p: split-path clean-path target] error? set/any 'err try [ either any [ blk: copy dir foreach file blk [ ret: find/match/any file second p if none? ret [ret: file] either tail? ret [ remove dir ] [ dir: next dir ] ] ] [ blk: copy dir either not none? blk: find blk second p [ remove skip dir (index? blk) - 1 ] [ make error! reduce ['access 'no-delete target] ] ] ] attempt [close dir] either error? get/any 'err [throw err] [get/any 'err] ]Last modified on 27 October 2012, at 22:14