public function doesdotnetframeworkexist(byval udeversion as dotnetframeworkversions) as boolean
dim o_blnret as boolean dim o_strret as string
with new cregistry .hkey = hkey_local_machine .keypath = "software/microsoft/.netframework" if .doeskeyexist() then .keypath = "software/microsoft/.netframework" o_strret = getregvalue(.getregistryvalue("installroot", "")) o_blnret = (o_strret <> "") if o_blnret then with new cfilefuncs select case udeversion case dnfvv1 o_blnret = .doesfileexistex(o_strret & "v1.0.3705/mscorlib.dll") case dnfvv1_1 o_blnret = .doesfileexistex(o_strret & "v1.1.4322/mscorlib.dll") case dnfvvany o_blnret = .doesfileexistex(o_strret & "v1.0.3705/mscorlib.dll") if o_blnret then else o_blnret = .doesfileexistex(o_strret & "v1.1.4322/mscorlib.dll") end if end select end with else
