[REBOL] Re: Recursive directory read/delete

From: ryanc:iesco-dms at: 20-Apr-2001 11:41

Andrew Martin wrote:

> Anyone got a recursive directory deleter written?
>

Its part of my chainsaw collection.  --Ryan

erase: function [
  "Recursively erase a directory structure, including files."
  target [file!] "Directory to delete."
] [
  dir-list
] [
  either dir? target [
    dir-list: read target
    foreach filename dir-list [
      either dir? rejoin [target filename ] [
        erase rejoin [target filename ]
      ] [
        delete rejoin [target filename ]
      ]
    ]
    delete target
  ] [
    delete target
  ]
]

file-copy: function [
  "Recursively copy files."
  source [file!] "Source directory or file."
  destination [file!] "Destination directory or file."
] [
  dir-list
] [
  either dir? source [
    dir-list: read source
    foreach filename dir-list [
      either dir? rejoin [source filename ] [
        if not exists? rejoin [destination filename ] [ make-dir rejoin
[destination filename ] ]
        file-copy rejoin [source filename ] rejoin [destination filename
]
      ] [
        file-copy rejoin [source filename ] destination
      ]
    ]
  ] [
    either dir? destination [
      if not exists? destination [ make-dir destination ]
      write/binary rejoin [ destination any [ find/last/tail source "/"

 ] ]
        read/binary source
    ] [
      write/binary destination read/binary source
    ]
  ]
]

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