Finding File Versions

Is there a way to interrogate an ARX file from within AutoCAD to find out it's version? I want to be able to run a routine on a machine which will check a number of files and provide me with the version numbers.

 

Hi Nickely

Try this one:

Code:

;
; -- MeGetFileVersion
; Returns the version info of a file.
; Copyright:
;   ©2005 MENZI ENGINEERING GmbH, Switzerland
; Arguments [Typ]:
;   Fil = Filename "C:\\Program Files\\Acad2005\\acad.exe" [STR]
; Return [Typ]:
;   > File version [STR]
;   > nil if file doesn't exist or has no version info
; Notes:
;   - Require ScrRun.dll (WinNT4/9x/ME only)
;
(defun MeGetFileVersion (Fil / FilSys RetVal)
(setq FilSys (vlax-create-object "Scripting.FileSystemObject")
RetVal (cond
((not (findfile Fil)) nil)
((eq (setq RetVal (vlax-invoke FilSys 'GetFileVersion Fil)) "")
nil
)
(RetVal)
)
)
(vlax-release-object FilSys)
RetVal
)

Cheers

 

This works on 99% of the files I want to check, but there is one where the developer has used 'Product Version' rather than 'File Version' for their identifier.

Is it possible to tweak this to look at the product rather than file version?

 

AFAIK not possible in LISP -> VBA + WinAPI

Cheers