I found this code that someone posted and it works great except I want to make it copy all sub folders and files with file ownership and ACL information. Can this even be done?
Const strSOURCE = "c:\test\"
Const strTARGET = "c:\test-2\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.GetFolder(strSOURCE)
For Each fil in fol.Files
If (Not fso.FileExists(strTARGET & fil.Name)) Then
fso.Copyfile strSOURCE & fil.Name, strTarget, true
MsgBox lngCount & " files copied", vbInformation , "Image Copy Complete"