Sorry about that..

Hope this makes sense, for each user I need to copy the Netscape7 source files and into a Netscape7 directory and then copy each users original Netscape data into their new Netscape7 folder because it contains their bookmarks and SSL certificates.

Copy Netscape7 source files to each users (e:\data\%username%\data\Netscape7\) folder.
Example: Copy e:\source\netscape7\*.* To e:\data\%username%\data\netscape7\

Copy/overwrite the users Netscape7 data with their Netscape data.
Example: Copy e:\data\%username%\data\netscape\*.* To e:\data\%username%\data\netscape7\

Code:


$sourcedir = "e:\source\netscape7"


for each $folder in folderlist('e:\data')

; Shell statements, DO Stuff

shell 'cmd /c xcopy '+$sourcedir+' e:\data\'+$folder+'\data /d /e /c /y /h /r'
shell 'cmd /c xcopy '+$folder+' e:\data\netscape'+$folder+'\data\ /d /e /c /y /h /r'


next


; UDF Function FolderList 

Function FolderList($folderName,optional $mask)
	dim $objDir, $objFld, $objFile, $t, $name
	$objDir = CreateObject('Scripting.FileSystemObject')
	if @error	Exit 1		Endif
	$objFld = $objDir.GetFolder($folderName).SubFolders
	if @error	exit 2		endif		; usually folder not found
	For Each $objFile In $objFld
		$name=$objFile.name
		if ($mask and instr($name,$mask)) or not $mask
			$t=$t+'|'+$name
			endif
		Next
	$FolderList=split(substr($t,2),'|')
	$objDir = 0
	EndFunction