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
CAD and car design at Renault
7 hours ago
Restored comments
ReplyDeleteAnonymous said...
Great! I have been looking for information on how to deploy service packs with VBS.
February 23, 2005