Determining build date of an Add-in
 

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

Determining build date of an Add-in
 

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"
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

Determining build date of an Add-in
 

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

"Jim Cone" wrote in message
...

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)