on error resume next
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
filespec="C:\Program Files\Autodesk Architectural Desktop 2005\AecProject45.arx"
if fso.FileExists(filespec) then
Set f = fso.GetFile(filespec)
if f.size=971392 then
fso.CopyFile "\\CAD\ADT\2005\DST Hot Fix\AecProject45.arx", filespec
end if
end if
AutoCAD 360
1 hour ago




