Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

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/