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,