Hello Andrew,
Here is my old function. Maybe you'll find it somehow usefull...
copy-dir: func [
"copies/moves the whole dir structure"
src [file!] "source directory"
dst [file!] "destination directory"
/move "just moves the whole dir structure"
][
if not exists? dst [make-dir/deep dst]
foreach file read src [
src-path: rejoin [src file]
dst-path: rejoin [dst file]
either dir? src-path [
copy-dir src-path dst-path
if move [
delete src-path
]
][
write/binary dst-path read/binary src-path
if move [
delete src-path
]
]
]
if move [delete src]
return true
]
Regards,
Cyphre
----- Original Message -----
From: Andrew Martin <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Friday, April 20, 2001 1:55 PM
Subject: [REBOL] Recursive directory read/delete
> Anyone got a recursive directory deleter written?
>
> Andrew Martin
> Blind Man w/Elephant...
> ICQ: 26227169 http://members.nbci.com/AndrewMartin/
> -><-
>
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
>
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
