1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Option explicit
Dim source_dir, xmlfiles, target_dir, file, objFS, objFile
source_dir=":\\srv\script\"
xmlfiles = Array("CompositesGVSContourOnly.xml", "CompositesGVSExplodedOnly.xml",
"CompositeGVSFlattenOnly.xml")
target_dir="C:\Program Files\CAO\resources\templates\"
set objFS = CreateObject("Scripting.FileSystemObjet")
For Each file In xmlfiles
if Not objFS.FileExists(target_dir & file) then
if objFS.FileExists(source_dir & file) then
Set objFile = objFS.GetFile(source_dir & file)
objFile.Copy(target_dir)
end if
end if
Next |
Partager