Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I need the date of the .exe that is running
Message
From
09/05/2002 11:31:16
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00654413
Message ID:
00654523
Views:
13
This message has been marked as the solution to the initial question of the thread.
Tommy,

>Is there a way to get the date of the exe that is running? I need to show the version, build number and the date it was created. I have the first 2 but am having difficulty getting the date.

Please try this sequence:
 Dimension aExeVer [1], aExeAtr [1]

 cFullProgName = Sys    (16, 0)
 cExecProgName = Substr (cFullProgName, At (" ", cFullProgName, 2) + 1)

 aDir            (aExeAtr, cExecProgName)
 aGetFileVersion (aExeVer, cExecProgName)

 MessageBox ("  Version: "    +       aExeVer [4]  + ;
             "  Build Date: " + DtoC (aExeAtr [3]) + ;
             "  Build Time: " +       aExeAtr [4])
Hope it helps,

Fernando
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform