Script Library: 1238 scripts


REBOL [ Title: "Duplicate Directory" Date: 25-Jul-2002 Name: 'Duplicate-Directory Version: 1.0.1 File: %duplicate-directory.r Author: "Andrew Martin" Purpose: "Duplicates the structure and files of a directory." eMail: %Al--Bri--xtra--co--nz Web: library: [ level: 'beginner platform: none type: 'tool domain: none tested-under: none support: none license: none see-also: none ] ] 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 ] ] ]
halt ;; to terminate script if DO'ne from webpage
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (Al:Bri:xtra:co:nz)