Determining build date of an Add-in

[Ed]

Please excuse the reposting. When I posted it before I had a
misspelling in the subject,
perhaps explaining the lack of response.

I would like a Help|About command on the menu created when my Add-in
is loaded.
In it I'd like to report a Version number and the timestamp for when I
last modified the
add-in. Here's what I have written:

Set wkbWkb = ThisWorkbook
strFileName = wkbWkb.Name
Set wksWks = wkbWkb.Worksheets("UserData")

strPath = wkbWkb.Path & "\" & strFileName
varDate = FileDateTime(strPath)

iCol = GetColIndex2(wksWks, "VERSION")
strVersion = wksWks.Cells(2, iCol)
strMsg = "JOC Membership Macro Package Version " & strVersion & "
Last modified " & varDate
MsgBox strMsg

As you can see, I get teh Version number out of cell stored in a
worksheet belonging to the add-in workbook.
That works fine.

What doesn't work is the way I attempt to get the "build date." I
would think that varDate would be reported
as the timestamp I see in Windows Explorer, i.e., the date I last
modified the .xla file. Instead, I get
a time stamp that seems to be the time the add-in is loaded.

Why does it behave this way? How can I get it to report the actual
last-modified date/time?

TIA

Ed

 

[Jim Cone]

Ed,
After loading the file, go back into Windows Explorer and take a look
at the file date. Open files will display the date the file was opened not
the date modified.
You might want to enter the modified date into the add-in worksheet
and then read it from there.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"Ed" <jag_manR__EM*[email protected]>
wrote in message
Please excuse the reposting. When I posted it before I had a
misspelling in the subject,
perhaps explaining the lack of response.

I would like a Help|About command on the menu created when my Add-in
is loaded.
In it I'd like to report a Version number and the timestamp for when I
last modified the
add-in. Here's what I have written:

Set wkbWkb = ThisWorkbook
strFileName = wkbWkb.Name
Set wksWks = wkbWkb.Worksheets("UserData")

strPath = wkbWkb.Path & "\" & strFileName
varDate = FileDateTime(strPath)

iCol = GetColIndex2(wksWks, "VERSION")
strVersion = wksWks.Cells(2, iCol)
strMsg = "JOC Membership Macro Package Version " & strVersion & "
Last modified " & varDate
MsgBox strMsg

As you can see, I get teh Version number out of cell stored in a
worksheet belonging to the add-in workbook.
That works fine.

What doesn't work is the way I attempt to get the "build date." I
would think that varDate would be reported
as the timestamp I see in Windows Explorer, i.e., the date I last
modified the .xla file. Instead, I get
a time stamp that seems to be the time the add-in is loaded.

Why does it behave this way? How can I get it to report the actual
last-modified date/time?

TIA

Ed

 

[Ed]

Jim,

Well, I'll be darned. I have been using Windows since day 1, and DOS
before that, and did not
know that!

The method you suggested does work. I implemented it as a work-around
while waiting for an answer.
I have written a little macro that gets the timestamp with
FileDateTime() and writes it to the XLA worksheet.
The only problem is I have to do a save of the XLA and immediately
execute the macro and then do another save.
There will be a few seconds between the saved time and that which
shows in Windows Explorer, but that's close enough.

Thanks.

Ed