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