Duplicate-Directory & Recursive Read functions
[1/1] from: al::bri::xtra::co::nz at: 25-Jul-2002 15:08
Here's a duplicate directory function to create duplicate file and folder
structures.
Duplicate-Directory: func [
{Duplicates in Write_Directory the structure
and files of Read_Directory.}
Write_Directory [file!] "The written over directory."
Read_Directory [file!] "The read from directory."
] [
any [
exists? Write_Directory
md Write_Directory
]
foreach File recursive-read Read_Directory [
either #"/" = last File [
any [
exists? Write_Directory/:File
md Write_Directory/:File
]
] [
write/binary Write_Directory/:File
read/binary Read_Directory/:File
]
]
]
and a recursive read function as well.
Recursive-Read: function [
"Recursively read directory."
Directory [file! url!]] [Files Subdirectory] [
Files: read Directory
if block? Files [
foreach File Files [
if #"/" = last File [
Subdirectory: File
foreach File read Directory/:Subdirectory [
append Files Subdirectory/:File
]
]
]
]
Files
]
Andrew Martin
ICQ: 26227169 http://valley.150m.com/