Folder Duplicator

This script lets you choose a folder and copy it to every subfolder in the chosen destination.

Created it with a specific purpose of updating 200+ Citrix server user folders.

A catalog configuration file for Document Locator had to be placed under c:\documents and settings\username\application data\ColumbiaSoft

I created a folder called Application Data, then ColumbiaSoft under it, and placed the catalog there. Ran the script, selected the new Application Data folder, and chose c:\documents and settings as the destination. The script merged the existing application data with the new one under each username folder. Please pay attention as the script will overwrite existing files without prompting.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_outfile=FolderDuplicator.exe #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs FolderDuplicator 03/11/2009 Alex Belenkiy - ab@nyitsupport.com This script will duplicate the source directory into every subfolder of the destination, overwriting existing files in it's path. Use with caution!!! #ce #Include <File.au3> $Warning = MsgBox(1, "Folder Duplicator", "This application will duplicate the selected" & @CRLF & "source folder into all destination subfolders" & @CRLF & "All existing files will be overwritten") if $Warning = 2 then Exit $source = FileSelectFolder("Select Folder to Copy", "") if @error Then MsgBox(0, "Folder Duplicator", "Invalid Source Folder") Exit EndIf $destination = FileSelectFolder("Select Destination Folder", "") if @error then MsgBox (0, "Folder Duplicator", "Invalid Destination Folder") Exit EndIf $sourceSplit = StringSplit($source, "\") If StringRight($destination, 1) <> "\" Then $destination &= "\" $FileList = _FileListToArray ($destination, "*.*", 2) if @error then Exit for $a = 1 to $FileList [0] DirCopy ($source, $destination & $FileList[$a] & "\" & $sourceSplit[$sourceSplit[0]], 1) if @error then MsgBox(0, "Folder Duplicator", "Error encountered while copying folders") Exit EndIf Next MsgBox(0,"Folder Duplicator", "Done!!!")